如何在R Shiny中创建具有复杂头的数据表？

Question

我在datatable中有一个R Shiny，并希望标题为span multiple columns like below：

如何在R Shiny中实现这一目标？

Answer 1

Theres已经是示例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)

Answer 2

看一下来自RStudio DT的新软件包（https://github.com/rstudio/DT）？在http://rstudio.github.io/DT/，您可以找到所需内容的示例。

Answer 3

我希望它会有用。

library(shiny)
library(DT)

ui <- navbarPage(
 title = "Iris DataTable",
 tabPanel('Display length', dataTableOutput("table"))
 )

server <- function(input, output) {
 output$table <- renderDataTable(
 datatable(iris, options = list(pageLength = 25))
 )
}

shinyApp(ui, server)