DT::DataTables 中第一列的黑色背景和白色字体

Question

I have a shiny app with a DT::DataTable element in which the first column is a row header and the second column contains data. How can I change the color of the first column to be white text on a black background? If found ways to change the column headers (section 4.3 here ), but I how do I get the same effect applied to the first column?

Here's some example code showing a very simplified version of the table without the desired effect. I'm certain that adding something to the options list in the renderDataTable function will solve it, but I don't know what to add.

library(shiny)
library(DT)

# Define UI for application that draws a histogram
ui <- fluidPage(
    fluidRow(
        column(3,
            DT::dataTableOutput(outputId = 'tbl')
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
    output$tbl<- DT::renderDataTable(
    rownames = FALSE, colnames = '', options = list(dom = 't'),
    {
        df <- data.frame(
            Label = c('Label1', 'Label2', 'Label3', 'Label4'),
            Data = c('Data1', 'Data2', 'Data3', 'Data4')
        )
        return(df)
    })
}

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

Answer 1

library(shiny)
library(DT)

CSS <- HTML(
  "td.firstcol {color: white; background-color: black}"
)

ui <- fluidPage(
  tags$head(
    tags$style(CSS)
  ),
  fluidRow(
    column(3,
           DTOutput(outputId = 'tbl')
    )
  )
)


server <- function(input, output) {
  output$tbl<- renderDT({
    datatable(
      data.frame(
        Label = c('Label1', 'Label2', 'Label3', 'Label4'),
        Data = c('Data1', 'Data2', 'Data3', 'Data4')
      ),
      rownames = FALSE, 
      colnames = "", 
      options = list(
        dom = 't',
        columnDefs = list(
          list(targets = 0, className = "firstcol")
        )
      )
    )
  })
}

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