如何在Shiny的DataTable中正确集成复选框组与按钮？

问题原因分析 #

1. computeSumOfRow触发两次：

   • onclick代码里Shiny.setInputValue的语法错误，错误使用id="computeSumOfRow"的参数格式，正确调用应直接传入input ID字符串。
   • actionButton作为Shiny原生控件，在bindAll后会自身触发点击事件（即input$buttonIdi的数值变化），和onclick的JS代码形成双重触发。

2. lapply创建的事件不生效：

   • 服务端启动时input$buttonIdi尚未生成，observeEvent默认ignoreNULL=TRUE，因此不会监听后续动态生成的input元素。

修正后的代码 #

library(shiny)
library(DT)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  actionButton("browser", "browser"),
  DTOutput("dtout"),
  hidden(numericInput(
    inputId = "computeSumOfRow",
    label = NULL,
    value = 0
  ))
)

server <- function(input, output, session) {
  observeEvent(input$browser, browser())
  
  # 监听求和触发信号
  observeEvent(input$computeSumOfRow, {
    i <- input$computeSumOfRow
    cat("Start computing sum for row", i, "\n")
    allNumbers <- input[[paste0("checkboxId", i)]]
    allNumbers <- as.integer(allNumbers)
    print(sum(allNumbers, na.rm = TRUE)) # 处理未选择复选框的情况
  }, ignoreInit = TRUE)
  
  # 动态监听按钮点击，添加ignoreNULL=FALSE确保捕获后续生成的input
  lapply(1:5, function(i) {
    observeEvent(input[[paste0("buttonId", i)]], {
      cat("Button ", i, "pressed and triggered external event\n")
      str(input[[paste0("buttonId", i)]])
      # 可选：直接在此处触发求和逻辑，替代onclick的JS代码
      # Shiny.setInputValue("computeSumOfRow", i, {priority: "event"})
    }, ignoreNULL = FALSE)
  })
  
  output$dtout <- renderDT({
    checkboxes <- sapply(1:5, function(i) {
      as.character(div(
        checkboxGroupInput(
          inputId = paste0("checkboxId", i),
          label = "Select numbers to sum",
          choices = 1:7 + 10*i
        ),
        actionButton(
          inputId = paste0("buttonId", i),
          label = "Compute sum",
          # 修正Shiny.setInputValue的语法
          onclick = sprintf("Shiny.setInputValue('computeSumOfRow', %i, {priority: 'event'});", i)
        )
      ))
    })
    
    dt <- data.frame(Checkboxes = checkboxes)
    
    datatable(
      dt,
      escape = FALSE,
      selection = "none",
      options = list(
        preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
        drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); }')
      )
    )
  })
}

shinyApp(ui, server)

关键修改点 #

1. 修正Shiny.setInputValue语法：
   将id=\"computeSumOfRow\"改为直接传入ID字符串'computeSumOfRow'，确保正确设置computeSumOfRow的数值。

2. 让lapply的事件生效：
   在observeEvent中添加ignoreNULL = FALSE，即使启动时input$buttonIdi不存在，后续动态生成后也能监听其变化。

3. 可选优化：移除双重触发：
   如果不需要同时监听按钮点击次数和求和触发，可移除onclick的JS代码，直接在observeEvent(input[[paste0("buttonId", i)]])中处理求和逻辑，避免重复触发。

内容的提问来源于stack exchange，提问作者Noskario