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

在您的用户界面中，添加以下标记：

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

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

2 个答案: