Применить стиль CSS к определенной колонке в Datatable

Question

Я использую Datatable в моем shiny App, как показано ниже.Мне интересно, есть ли способ применить конкретный CSS styling в одном столбце Datatable, например, я хочу, чтобы 1-й столбец был полужирным и имел определенный шрифт.

Любой указатель будет высоко оценен.Спасибо,

library(shiny)
library(DT)
library(data.table)   


 ui = fluidPage(

    DT::dataTableOutput("mytable1", height = '400px')
)

server = function(input, output, session) {
  DF_DT = data.frame(matrix("4", nr = 20, nc = 7)); colnames(DF_DT) = LETTERS[1:7]
  output$mytable1 = renderDataTable({
                  DF_DT}, options = list(columnDefs = list(list(width = '350px', targets = 1, className = 'dt-center', fontSize = '50px')))
              )
}

shinyApp(ui = ui, server = server)

Answer 1

Одна возможность:

ui = fluidPage(
  tags$head(tags$style(HTML("
      .dt-center {
        font-weight: bold;
      }
    "))),
  DT::dataTableOutput("mytable1", height = '400px')
)

Для справки см https://shiny.rstudio.com/articles/css.html