我有一个闪亮的动作按钮,但我希望显示图像而不是字体.我已经使用标签$按钮作为动作按钮.这会显示一个小灰框.相反,我想显示一个"电源"按钮.
fluidRow(
column(4,offset=11,
tags$button(
id = "reset_button",
class="btn action-button"
))),
谢谢!
我正在尝试制作一个具有两层嵌套的数据表。第一个用于对行进行分组（https://github.com/rstudio/shiny-examples/issues/9#issuecomment-295018270），第二个应该打开一个模式（R ShinyBS 弹出窗口）。我可以让它单独工作，但第二层嵌套会产生问题。一旦有第二次嵌套，表中的数据就不再显示在折叠组中。
所以到目前为止我所做的至少有一个问题，那就是如何在有多个嵌套时正确显示它。在那之后，我不确定模式当前是否有效。我想知道这些 id 是否不会与现在的方式发生冲突。
任何提示表示赞赏。
# Libraries ---------------------------------------------------------------
library(DT)
library(shiny)
library(shinyBS)
library(shinyjs)
library(tibble)
library(dplyr)
library(tidyr)
library(purrr)
# Funs --------------------------------------------------------------------
# Callback for nested rows
nest_table_callback <- function(nested_columns, not_nested_columns){
not_nested_columns_str <- not_nested_columns %>% paste(collapse="] + '_' + d[") %>% paste0("d[",.,"]")
paste0("
table.column(1).nodes().to$().css({cursor: 'pointer'});
// Format data object (the nested table) into another table
var format = function(d) {
if(d != null){
var result = ('<table id=\"child_' + ",not_nested_columns_str," + '\">').replace('.','_') + '<thead><tr>'
for (var col …我正在尝试使用闪亮的模块来重用 UI 和服务器代码来呈现共享相同演示文稿的三个不同数据集。
在 UI/服务器代码之外使用基于 javascript 的模态弹出链接创建时，在处理命名空间时遇到了一些挑战。
这是我的非工作应用程序代码：
library(shiny)
library(shinyBS)
library(DT)
df <- data.frame(id = c('a', 'b', 'c'), value = c(1, 2, 3))
on_click_js = "
Shiny.onInputChange('myLinkName', '%s');
$('#myModal').modal('show')
"
convert_to_link = function(x) {
as.character(tags$a(href = "#", onclick = sprintf(on_click_js, x), x))
}
df$id_linked <- sapply(df$id, convert_to_link)
df <- df[, c('id_linked', 'value')]
mySampleUI <- function(id) {
ns <- NS(id)
fluidPage(
mainPanel(
dataTableOutput(ns('myDT')),
bsModal(id = 'myModal',
title = 'My Modal Title',
trigger = '',
size = 'large',
textOutput(ns('modalDescription'))
),
width = …我创建的下载按钮闪亮的数据表的每一行内部，如图这里。桌子位于其中一个闪亮的模块内。我想知道在使用downloadHandler任何下载按钮时应该将哪个 ID 附加到输出？我XXXXXXXXXXXX在下面的代码中显示了可疑的价值。
library(shiny)
library(DT)
#>
#> Attaching package: 'DT'
#> The following objects are masked from 'package:shiny':
#>
#> dataTableOutput, renderDataTable
## module UI
test_data_table_ui <- function(id){
ns <- NS(id)
tagList(
DT::dataTableOutput(outputId = ns("my_data_table"))
)
}
## module server
test_data_table_server <- function(input, output, session ){
ns = session$ns
myValue <- reactiveValues(check = '')
shinyInput <- function(FUN, len, id, ns, ...) {
inputs <- character(len)
for (i in seq_len(len)) {
inputs[i] <- as.character(FUN(paste0(ns(id), i), …我正在尝试在闪亮的数据表中创建一个操作按钮，单击该按钮会链接到特定的亚马逊产品。我按照R Shiny: Handle Action Buttons in Data Table建模了我的代码。单击该按钮时，我需要用户根据 data.table 行中的 ASIN 导航到特定的亚马逊产品页面。
filteredData <- data.frame(
Name = c('Dilbert', 'Alice', 'Wally', 'Ashok', 'Dogbert'),
ASIN = c("B06Y4VRZTB",
"B06Y4WGPBB",
"B06Y4J9Z9V",
"B06Y4V169H",
"B06Y4TF1D1"),
stringsAsFactors = FALSE,
row.names = 1:5)
shinyInput <- function(FUN, len, id, ...) {
inputs <- character(len)
for (i in seq_len(len)) {
inputs[i] <- as.character(FUN(paste0(id, i), ...))
}
print(inputs)
inputs
}
df <- reactiveValues(data = data.frame(
filteredData %>% mutate(Amazon.Button = shinyInput(actionButton,
nrow(filteredData),
'button_',
label = "Amazon",
onclick = paste0("window.open('https://",
AmazonSiteLink, …我正在尝试在数据表中添加一列按钮，单击这些按钮将弹出一个模式，但我在使用我在此处和此处在网上找到的示例时遇到了问题。
我的一些要求：
代码：
library(shiny)
library(shinydashboard)
library(DT)
ui = dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
DTOutput('x1'),
verbatimTextOutput("test")
)
)
server = function(input, output) {
##DATA TABLE WHERE I NEED A BUTTON##
output$x1 = renderDT(
iris,
selection = 'single',
options = list(
)
)
##MODAL CALLED BASED ON BUTTON CLICK
observeEvent(input$x1_cell_clicked, {
row = input$x1_cell_clicked$row
if (is.null(row) || row == '') {} else{
showModal(modalDialog(
title = paste0("Timeline!",row),
size = "s",
easyClose = …