Add text colour to a specific column name (header) in DT Shiny datatable -


i new dt in shiny , add text colour specific columns in table, can using formatstyle per below example code chunk. however, add same text colour corresponding column name (header), there easy way this?

library(shiny) library(dt)  ui = fluidpage(dt::datatableoutput('fdatatable'))  server = function(input, output) {   output$fdatatable = dt::renderdatatable({     dt::datatable(iris) %>%       formatstyle(columns = 1, color = "red") %>%       formatstyle(columns = 3, color = "blue")   }) }    app = list(ui = ui, server = server) runapp(app) 

any appreciated.

you can adding css colnames of table rendering (you need set escape false or html escaped).

here's example:

library(shiny) library(dt)  ui = fluidpage(dt::datatableoutput('fdatatable'))  server = function(input, output) {   output$fdatatable = dt::renderdatatable({     iris_coloured <- iris     colnames(iris_coloured)[c(1,3)] <- paste0('<span style="color:',c("red","blue"),'">',colnames(iris)[c(1,3)],'</span>')     dt::datatable(iris_coloured,escape=f) %>%       formatstyle(columns = 1, color = "red") %>%       formatstyle(columns = 3, color = "blue")   }) }    app = list(ui = ui, server = server) runapp(app) 

Comments

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

ios - UITEXTFIELD InputView Uipicker not working in swift -

Python Pig Latin Translator -