Я использую 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)
Одна из возможностей:
ui = fluidPage(
tags$head(tags$style(HTML("
.dt-center {
font-weight: bold;
}
"))),
DT::dataTableOutput("mytable1", height = '400px')
)
Для справки см. Https://shiny.rstudio.com/articles/css.html
td.dt-center { font-weight: bold; }
например (я использовал selectorgadget, чтобы понять это).