r - 如何在 R Shiny 中创建具有复杂标题的数据表？

Question

我有一个datatable在 R Shiny并希望有 span multiple columns like below 的标题:

如何在 R Shiny 中实现这一点？

Answer 1

已经有示例http://rstudio.github.io/DT/

library(DT)
sketch = htmltools::withTags(table(
  class = 'display',
  thead(
    tr(
      th(rowspan = 2, 'Species'),
      th(colspan = 2, 'Sepal'),
      th(colspan = 2, 'Petal')
    ),
    tr(
      lapply(rep(c('Length', 'Width'), 2), th)
    )
  )
))
datatable(iris[1:20, c(5, 1:4)], container = sketch, rownames = FALSE)