Shiny中如何识别被点击的checkboxInput并收集选中项名称

正确实现代码 #

library(shiny)
ui <- fluidPage(
  checkboxInput("a1", "test1", TRUE),
  checkboxInput("a2", "test2", TRUE),
  checkboxInput("a3", "test3", TRUE),
  
  verbatimTextOutput("vl")
)
server <- function(input, output) {
  # 定义响应式变量存储选中的复选框名称
  selected_names <- reactive({
    my_string <- c()
    if(input$a1){
      my_string <- c(my_string, "test1")
    }
    if(input$a2){
      my_string <- c(my_string, "test2")
    }
    if(input$a3){
      my_string <- c(my_string, "test3")
    }
    # 合并为单个字符串，多个选中默认用逗号分隔，可按需修改collapse参数调整分隔符
    paste(my_string, collapse = ", ")
  })
  
  # 输出选中结果到界面
  output$vl <- renderText({
    selected_names()
  })
  
  # 同时打印结果到控制台
  observe({
    print(selected_names())
  })
}
shinyApp(ui, server)

原代码问题说明 #

• 直接把判断逻辑写在server函数顶层，只会在Shiny应用启动时运行一次，无法跟随用户勾选操作动态更新，需要把逻辑放在reactive()或者observe()这类响应式上下文中才能监听输入变化。
• 原代码存在变量名拼写错误，my string缺少下划线，正确写法为my_string。
• 若需要单个字符串变量而非向量，用paste()配合collapse参数即可把向量合并为单个字符串。

简化写法（适配更多复选框场景） #

如果后续要新增复选框，不用重复写if判断，可通过映射表批量处理：

selected_names <- reactive({
  # 仅需要修改这里的映射表，即可适配任意数量的复选框
  cb_map <- c("a1" = "test1", "a2" = "test2", "a3" = "test3")
  # 自动筛选选中的复选框对应名称
  paste(cb_map[names(which(sapply(names(cb_map), function(x) input[[x]])))], collapse = ", ")
})

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