我有一个datatable想在R Shiny中展示,但是我想让包含列名的头部列为红色并且文字为白色。使用formatStyles(),我只能指定整个列而不是仅仅是包含列名的头部行。你建议如何解决这个问题?
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)