如何在 R Shiny 中更改 DT Datable header 的背景和文本顏色

Question

我有一個要在 R Shiny 中顯示的數據表，但我希望 header 列的列名稱為紅色，文本為白色。 使用 formatStyles()，我只能指定整個列，而不僅僅是 header 名稱的行。 你會建議如何解決這個問題？

library(shiny)
library(dplyr)


ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
        ),
    mainPanel(
        DT::DTOutput("table")
    )
))

server <- function(input, output) {
    data <- tibble(name = c("Justin", "Corey", "Sibley"),
           grade = c(50, 100, 100))
    
    output$table <- renderDT({
        datatable(data)
    })

    
}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

如果列名文本為“白色”且背景為“紅色”

server <- function(input, output) {
  
  data <- tibble(name = c("Justin", "Corey", "Sibley"),
                 grade = c(50, 100, 100))
  
  output$table <- DT::renderDT({
    datatable(data, options = list(
      
      initComplete = JS(
        "function(settings, json) {",
        "$(this.api().table().header()).css({'background-color': 'red', 'color': 'white'});",
        "}")
    ))
  })
  
  
}

-輸出