小编Jam*_*mie的帖子

使用 RStudio 1.0.136 和 R Shiny 0.14.2，我尝试创建一个数据表，每行都有一个操作按钮，单击按钮时会出现一个弹出窗口。我的代码当前正在运行，但您不能连续单击同一按钮两次。我在下面发布了两个版本的示例代码：

library(shiny)
library(DT)
library(shinyBS)

shinyApp(
ui <- fluidPage(
DT::dataTableOutput("data"),

uiOutput("modal")
),

server <- function(input, output,session) {

shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
   inputs[i] <- as.character(FUN(paste0(id, i), ...))
 }
  inputs
}

df <- reactiveValues(data = data.frame(
  Assessment = shinyInput(actionButton, 10, 'button_', label = "Assessment", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
  Value1 = 1:10,
  Value2 = c("A", "B", "C", "D", "E"),
  stringsAsFactors = FALSE,
  row.names = 1:10
)) …