Zentrieren Sie benutzerdefinierte Datentabelle Container-Spaltenüberschriften in Shiny

Question

Ich gehe Beispiel 2.5 hier: https://rstudio.github.io/DT/, um einen benutzerdefinierten Datentabelle Container in glänzend zu erstellen. Das Beispiel scheint alleine gut zu funktionieren. Aber wenn ich versuche, es in einer glänzenden App zu starten, sind die Köpfe von Sepal und Petal nicht zentriert. Bitte helfen Sie. Vielen Dank.

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

In Ihrer Benutzeroberfläche, fügen Sie diesen Tag:

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

Answer 2

vor:

rowspan=2 

hinzufügen, um dieses:

class = 'dt-center'