Conditional highlighting of rows in tableHTML

Question

In tableHTML: Is there a way to highlight complete rows based on one conditional column? Something like this, but also with red cells in the mpg-, cyl- and disp-columns:

tableHTML(mtcars[1:10,1:3]) %>%
add_css_conditional_column(conditional = "contains", 
                           value = "Hornet",
                           css = list('background-color', "red"), 
                           columns = "rownames")

Stefan Jelkovich · Answer 1 · 2021-04-11T20:02:45.140

3

I found an answer myself. Using the add_css_row function, the condition can be added to the rows parameter:

my_df <- mtcars[1:10,1:3]
tableHTML(my_df) %>%
add_css_row(css = list('background-color', 'red'), 
            rows = grep("Hornet", rownames(my_df)) + 1)

edited Apr 11 '21 at 20:02

answered Apr 11 '21 at 19:57

Stefan Jelkovich

161
11

score 2 · Answer 2 · answered Apr 11 '21 at 17:20

We have the intention to include that functionality in the package, but haven't implemented it yet. It can be done with a bit of a hack though:

First, we create a logical vector for the conditional, then we create a tableHTML object. Then, for each column in the tableHTML object, we can apply a style in a loop using the function add_css_rows_in_column:

library(tableHTML)

conditional <- grepl("Hornet", rownames(mtcars[1:10, ])) 

my_tableHTML<- mtcars[1:10,1:3] %>% 
 tableHTML()
for (i in 0:3) {
 my_tableHTML <- my_tableHTML %>% 
  add_css_rows_in_column(css = list(c("background-color"), 
                                    ifelse(conditional, "red", "")),
                         column = i)
} 

my_tableHTML

The result looks like this:

score 2 · Accepted Answer · answered Apr 11 '21 at 18:46

In the recently published version of tableHTML (version 2.1.0), there's an option to choose logical as a conditional type with add_css_conditional_column, which can be also used as a proxy for row conditional highlighting if it was applied to all columns

Basically you define the logical vector for the condition (just like the answer by clemens), and choose to apply it to all columns like so:

my_df <- mtcars[1:10,1:3]
conditional <- grepl("Hornet", rownames(my_df)) 

tableHTML(my_df) %>%
  add_css_conditional_column(conditional = "logical", 
                             columns = 0:ncol(my_df),
                             css = list('background-color', "red"), 
                             logical_conditions = list(conditional))

Since I don't want to accept my own answer, I accept this as the second best solution. ;-) — Stefan Jelkovich, Apr 11 '21 at 20:10

Conditional highlighting of rows in tableHTML

3 Answers3