R Shiny技术问题：如何在表格中添加单选按钮并获取选中值？

要解决DT表格底部动态添加的单选按钮无法被Shiny捕获的问题，核心是确保动态生成的单选按钮被Shiny正确绑定。以下是可直接运行的完整代码，以及关键步骤说明：

完整可运行代码 #

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("data_table"),
  verbatimTextOutput("selected_radio") # 实时展示选中的单选值
)

server <- function(input, output, session) {
  # 示例数据集
  sample_data <- data.frame(
    Name = c("Alice", "Bob", "Charlie"),
    Age = c(25, 30, 35),
    City = c("New York", "London", "Paris")
  )
  
  output$data_table <- renderDT({
    datatable(
      sample_data,
      rownames = FALSE,
      # 底部回调函数：插入单选按钮组
      footerCallback = JS(
        "function(tfoot, data, start, end, display) {
          // 清空表格原有底部内容
          $(tfoot).empty();
          // 创建跨所有列的单元格
          var row = $('<tr/>').appendTo($(tfoot));
          var cell = $('<td/>').attr('colspan', data[0].length).appendTo(row);
          // 插入单选按钮组，统一name属性为table_radio
          $(cell).html(`
            <label><input type='radio' name='table_radio' value='option1' checked> 选项1</label>
            <label><input type='radio' name='table_radio' value='option2'> 选项2</label>
            <label><input type='radio' name='table_radio' value='option3'> 选项3</label>
          `);
          // 关键：绑定动态元素到Shiny，确保输入能被捕获
          Shiny.bindAll(cell);
        }"
      ),
      options = list(paging = FALSE, searching = FALSE)
    )
  })
  
  # 获取并展示单选按钮的选中值
  output$selected_radio <- renderPrint({
    cat("选中的选项：", input$table_radio)
  })
}

shinyApp(ui, server)

关键步骤说明 #

1. 统一单选按钮的name属性：所有单选按钮设置相同的name="table_radio"，这样它们会形成一组互斥选项，同时这个name会对应Shiny中的input$table_radio输入对象。
2. Shiny.bindAll()绑定动态元素：由于单选按钮是通过JavaScript动态生成的，必须调用Shiny.bindAll(cell)将这些元素注册到Shiny的输入系统中，否则Shiny无法监听它们的变化。
3. 直接监听input值：和普通Shiny输入控件一样，使用input$table_radio即可获取当前选中的单选按钮值。

动态生成单选选项（可选） #

如果需要根据数据动态生成单选选项，可以在R端先构造HTML字符串，再传递给JavaScript回调：

# 动态生成选项HTML
radio_options <- paste0(
  lapply(1:3, function(i) {
    opt_val <- paste0("option", i)
    sprintf("<label><input type='radio' name='table_radio' value='%s'> %s</label>", opt_val, opt_val)
  }),
  collapse = " "
)

# 在footerCallback中使用动态生成的选项
footerCallback = JS(
  sprintf(
    "function(tfoot, data, start, end, display) {
      $(tfoot).empty();
      var row = $('<tr/>').appendTo($(tfoot));
      var cell = $('<td/>').attr('colspan', data[0].length).appendTo(row);
      $(cell).html('%s');
      Shiny.bindAll(cell);
    }",
    radio_options
  )
)

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