在 Shiny 中居中自定义数据表容器列标题

Question

我在这里遵循示例 2.5：https : //rstudio.github.io/DT/以创建闪亮的自定义数据表容器。该示例本身似乎运行良好。但是当我尝试在一个闪亮的应用程序中运行它时，Sepal 和 Petal 标题没有居中。请帮忙。谢谢。

library(shiny)

runApp(list(
    ui = basicPage(
    h2('Iris Table'),
    DT::dataTableOutput('mytable')
  ),
server = function(input, output) {
    output$mytable = DT::renderDataTable({

  # a custom table container
  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)
      )
    )
  ))

  DT::datatable(iris[1:20, c(5, 1:4)], container = sketch, rownames = FALSE)

  })
}
))

Answer 1

之前：

rowspan=2

添加这个：

class = 'dt-center'

Answer 2

在您的 UI 中，添加此标签：

runApp(list(
    ui = basicPage(
        tags$head(
            tags$style(type = "text/css",
               HTML("th { text-align: center; }")
            )
        ),
    h2('Iris Table'),
    DT::dataTableOutput('mytable')
    )