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

在你的用户界面，添加此标签：

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

Answer 2

前：

rowspan=2 

补充一点：

class = 'dt-center'