Jak utworzyć datatable ze złożonym nagłówkiem w R Shiny?

Question

Mam datatable w R Shiny i chciałby mieć nagłówki span multiple columns like below:

Jak można to osiągnąć w R Shiny?

Answer 1

Zobacz nowy pakiet RStudio DT (https://github.com/rstudio/DT)? Tutaj możesz znaleźć przykład tego, czego potrzebujesz.

Answer 2

Tam już przykład 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)