R Shiny中如何动态生成DT数据表的自定义表头容器

问题场景 #

在Shiny框架中使用DT包构建两级复合表头数据表时，静态写死表头的方式无法适配动态变化的日期列数。
现有静态实现的效果如下：

静态实现代码：

sketch = htmltools::withTags(
  table(
    class = 'display',
    thead(
      tr(
        th(rowspan = 2, 'Name'),
        th(colspan = 2, '2022-06-01'),
        th(colspan = 2, '2022-06-02')
      ),
      tr(
        lapply(rep(c('Length', 'Width'), 2), th)
      )
    )
  )
)
datatable(df, container = sketch, rownames = FALSE)

静态代码的局限：第二级表头可以通过修改rep的重复次数适配列数，但第一级的日期跨列表头只能硬编码，无法按需新增类似2022-06-03、2022-06-04这类跨列项。

实现方法 #

核心思路是提前动态生成两级表头的节点列表，再传入thead结构中，将日期列、子列都作为可配置参数，无需硬编码表头项。

完整可复用代码 #

library(DT)
library(htmltools)

#' 生成DT复合表头容器
#' @param date_cols 日期向量，控制第一级跨列项的数量
#' @param sub_cols 每个日期对应的子列名称，默认是Length、Width
generate_dt_header <- function(date_cols, sub_cols = c("Length", "Width")) {
  col_count <- length(sub_cols)
  # 拼接第一级表头：固定跨2行的Name列 + 动态生成的日期跨列项
  level1_nodes <- c(
    list(th(rowspan = 2, "Name")),
    lapply(date_cols, function(d) th(colspan = col_count, d))
  )
  # 拼接第二级表头：按日期数量重复子列名
  level2_nodes <- lapply(rep(sub_cols, length(date_cols)), th)

  # 组装成DT需要的table容器
  header_sketch <- withTags(
    table(
      class = "display",
      thead(
        tr(level1_nodes),
        tr(level2_nodes)
      )
    )
  )
  return(header_sketch)
}

# 调用示例：传入任意长度的日期向量即可自动生成对应表头
# 比如传入4个日期，就会自动生成4组跨2列的日期表头
date_list <- c("2022-06-01", "2022-06-02", "2022-06-03", "2022-06-04")
dynamic_sketch <- generate_dt_header(date_list)

# 测试数据集，列数需要和表头匹配：1列Name + 每个日期对应2个子列
test_data <- data.frame(
  Name = c("Sample1", "Sample2"),
  "2022-06-01.Length" = c(1.2, 2.3),
  "2022-06-01.Width" = c(0.8, 1.1),
  "2022-06-02.Length" = c(1.5, 2.1),
  "2022-06-02.Width" = c(0.9, 1.3),
  "2022-06-03.Length" = c(1.7, 2.5),
  "2022-06-03.Width" = c(1.0, 1.2),
  "2022-06-04.Length" = c(1.4, 2.2),
  "2022-06-04.Width" = c(0.7, 1.4),
  check.names = FALSE
)

# 渲染数据表
datatable(test_data, container = dynamic_sketch, rownames = FALSE)

使用说明 #

• 只需修改传入generate_dt_header的date_cols参数，即可自动适配任意数量的日期列，不需要手动修改表头结构
• 如果后续需要调整每个日期下的子列数量，比如新增Height列，只需修改sub_cols参数为c("Length", "Width", "Height")，函数会自动调整colspan值和第二级表头数量
• 在Shiny应用中使用时，将date_cols替换为响应式返回的日期向量，即可实现表头随上传数据/筛选条件动态更新的效果

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