tableHTML(mtcars) %>%
add_css_header(css = list(c('background-color', 'border'), c('lightgray', '3px solid green')),
headers = 2)
tableHTML(mtcars) %>%
add_css_header(css = list(c('background-color', 'border'), c('lightgray', '3px solid green')),
headers = c(1, 4))
Run the code above in your browser using DataLab