R Shiny中checkboxGroupInput实现复选框批量选择数据框多列

多选触发下标越界的核心原因：checkboxGroupInput在选中多个选项时，返回值是包含所有选中标签的字符向量，而[[双中括号语法仅支持提取列表单个元素，传入长度大于1的向量时就会出现下标越界。
之前直接把嵌套列表传入choices的写法也不符合checkboxGroupInput的参数要求：该参数的命名规则是「列表值为前端提交的实际值，列表名为前端显示的标签」，直接传入嵌套的列名向量会导致提交值被转成异常字符串。

核心逻辑 #

• 维护命名格式的分组映射列表：列表名为复选框显示的标签，列表值为该标签对应的所有列名组成的向量，无分组的单列值设为长度为1的向量即可
• 渲染复选框时，直接取映射列表的名称作为选项值
• 子集数据框前，先根据选中的标签批量取出所有对应列名，拼接为一维字符向量后再做列筛选

基础版手动分组实现代码 #

library(shiny)
ui <- fluidPage(
  uiOutput('col_choice'),
  dataTableOutput('my_data')
)

server <- function(input, output){
  # 示例数据
  my.data <- reactive({
    data.frame(
      'a1' = c(1,2,3),
      'a2' = c(4,5,6),
      'b1' = c(1,2,3),
      'b2' = c(4,5,6),
      'c1' = c(1,2,3),
      'c2' = c(4,5,6)
    )
  })
  
  # 手动定义列分组映射
  col_groups <- list(
    'a' = c('a1','a2'),
    'b' = c('b1','b2'),
    'c' = c('c1','c2')
  )
  
  output$col_choice <- renderUI({
    checkboxGroupInput(
      inputId = "columns", 
      label = "Choose columns:", 
      choices  = names(col_groups),
      selected = names(col_groups) # 默认全选所有分组
    )
  })
  
  output$my_data <- renderDataTable({
    # 未选中任何选项时返回空表
    if(is.null(input$columns)) return(my.data()[, FALSE, drop = FALSE])
    # 批量提取选中分组对应的所有列名
    selected_cols <- unlist(col_groups[input$columns], use.names = FALSE)
    # 过滤掉不存在的列名，避免异常
    valid_cols <- selected_cols[selected_cols %in% names(my.data())]
    my.data()[, valid_cols, drop = FALSE]
  })
}

shinyApp(ui,server)

自动按前缀生成分组的扩展方案 #

针对数据量大、列名有统一前缀规则的场景，可以用正则自动识别前缀生成分组，无需手动维护映射列表，完全适配「1-3个字母前缀+数字/下划线数字后缀，少部分单列无分组」的命名规则：

# 放在server函数内即可
build_col_groups <- function(col_names) {
  groups <- list()
  for (col in col_names) {
    # 匹配开头1-3个字母、后面接数字/下划线数字的前缀
    prefix_res <- regmatches(
      col, 
      regexec("^([a-zA-Z]{1,3})(?=[0-9]|_[0-9])", col, perl = TRUE)
    )[[1]]
    # 匹配到前缀就以前缀为分组名（统一转大写避免大小写差异），匹配不到就以列名本身为分组名
    group_name <- if(length(prefix_res)>=2) toupper(prefix_res[2]) else col
    groups[[group_name]] <- c(groups[[group_name]], col)
  }
  groups
}

# 基于当前数据自动生成分组，适配动态变化的数据框
col_groups <- reactive({
  build_col_groups(names(my.data()))
})

使用自动分组时，把基础版代码中引用col_groups的位置替换为col_groups()即可。

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