I am rendering a table in my shiny app. Table is generated with DT library. This is the code:
output$table <- DT::renderDataTable(DT::datatable({# Displaying table in section tab for principal and director
if (user_logged$Designation=='director'|user_logged$Designation=='principal'){
data <- teacher_info[teacher_info$Section == input$sections,]
data <- data%>%
select(-c(Section))
}
This is the output: Table As you can see due to background color, column title and other title becomes obscure. I want to change the color of those texts and if possible I also want to change background color of table.