Change table header colour using htmlTable

Question

I've been having some issues with changing the thead background colour using the htmlTable package in R. By playing around with the css.cell options I was able to change the colour of part of the table header but not all (run code snippet).

require(htmlTable)
mat <- matrix(1:20, ncol=5)

htmlTable(mat,cgroup = c("","Rank",""),n.cgroup = c(1,3,1),
      header = LETTERS[1:5],
      css.cell = rbind(rep("background: lightgrey;", 
                           times=ncol(mat)),
                       matrix("", ncol=ncol(mat), nrow=nrow(mat))))

# Not Run
# x = htmlTable(mat,cgroup = c("","Rank",""),n.cgroup = c(1,3,1),
#               header = LETTERS[1:5],
#               css.cell = rbind(rep("background: lightgrey;", 
#                                times=ncol(mat)),
#                                matrix("", ncol=ncol(mat), nrow=nrow(mat))))
# get the output
# as.character(x)

The output from the code produces the following

Obviously the " " output is annoying, but easily manageable. But does anyone have any ideas on how to control the background colour in the table header directly from R?

I know I can adjust the thead style manually by adding the following to the html output: style="background-color: lightgrey;", but it would be very nice if I could just get the desired output directly from R.

Here is my desired table output, when I manually change the background-color in thead:

Added bonus, if anyone knows how to get rid of the " " output that would also be very helpful

LyzandeR · Accepted Answer

You might want to consider tableHTML for this one, because it adds full control over CSS. tableHTML uses the pipe operator to chain commands.

Using your data:

library(tableHTML)
mat %>%
 as.data.frame() %>%
 #tableHTML is the main function that creates the html table
 tableHTML(border = 0, rownames = FALSE, 
           second_header = list(c(1, 3, 1), c('', 'Rank', ''))) %>%
 #the add_css family of functions add CSS to the corresponding
 #parts of the table
 add_css_thead(list(c('background-color'), c('lightgrey'))) %>%
 add_css_table(list(c('text-align'), c('center'))) %>%
 add_css_row(css = list('border-top', '2px solid black'), rows = 1) %>%
 add_css_row(css = list('border-bottom', '1px solid black'), rows = 2) %>%
 add_css_row(css = list('border-bottom', '2px solid black'), rows = 6) %>%
 add_css_second_header(css = list('border-bottom', '1px solid black'), second_headers = 2)

Which would result in the table you want, but without needing to use a hack to modify tablehtml or any other package (or needing to manually deal with the /ns):

You can still modify it further if you wish. There is also an online tutorial here if you are interested.

Change table header colour using htmlTable

Answers (2)

Related Questions