Shiny checkboxGroupInput 能否通过嵌套列表实现单UI分组

原生checkboxGroupInput不支持类似selectInput的嵌套列表分组渲染能力。
二者对传入的choices参数的解析逻辑存在本质区别：

• selectInput会自动识别嵌套列表结构，为每个子列表块生成带独立标题的下拉选项组
• checkboxGroupInput完全不识别这种嵌套层级：无论新旧版本，要么直接将嵌套列表的顶层键作为独立可选项、忽略下层子向量的内容，要么拍平所有子向量、完全丢失顶层键对应的组标题信息，永远无法自动生成带分组标题的复选选项结构。

受限于无法拆分多个独立UI元素的要求，我们可以通过自定义HTML结构的方式，在单个输入容器内实现分组标题效果，全程共享同一个输入ID，取值逻辑和原生复选框组完全一致：

• 借助HTML原生的<fieldset>标签作为组视觉容器，用<legend>标签展示对应的组标题（即原嵌套列表的顶层名称foo、bar）
• 同一容器内的所有复选框统一设置相同的输入名，保证Shiny能正常收集所有勾选的取值
• 样式可通过自定义CSS和原生Shiny组件风格保持统一，不需要引入额外依赖包

可运行示例代码 #

library(shiny)

my_choices <- list(
  "foo" = c("a", "b", "c"), 
  "bar" = c("1", "2", "3")
)

ui <- fluidPage(
  # 单个统一的输入容器，无拆分的独立组件
  div(
    class = "form-group shiny-input-checkboxgroup shiny-input-container",
    id = "variable",
    tags$label(class = "control-label", "Variables to show:"),
    # 遍历嵌套列表生成每个视觉分组块
    lapply(names(my_choices), function(group_name) {
      tags$fieldset(
        style = "border: 1px solid #e3e3e3; border-radius: 4px; padding: 8px 12px; margin: 10px 0;",
        tags$legend(
          style = "width: auto; padding: 0 6px; font-size: 14px; font-weight: 600; border: none;",
          group_name
        ),
        # 生成分组下的所有复选框选项
        lapply(my_choices[[group_name]], function(opt) {
          div(
            class = "checkbox",
            tags$label(
              tags$input(
                type = "checkbox",
                name = "variable", # 所有复选框共享同一个输入名
                value = opt
              ),
              opt
            )
          )
        })
      )
    })
  ),
  # 验证取值的输出块
  verbatimTextOutput("res")
)

server <- function(input, output, session) {
  output$res <- renderPrint({
    input$variable
  })
}

shinyApp(ui = ui, server = server)

• 全程仅存在单个UI输入元素，完全符合不能拆分独立复选框组的限制要求
• 组标题和子选项和原嵌套列表结构完全对应，无信息丢失
• 取值逻辑和原生checkboxGroupInput完全一致，勾选的选项会以字符向量的形式正常传递到服务端
• 可通过调整CSS样式自定义组标题、边框的视觉表现，适配应用整体风格

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