tableHTML(mtcars) %>%
add_css_rows_in_column(css = list('background-color',
rep(c('red', 'green'), each = 16)),
column = 'mpg')
tableHTML(mtcars) %>%
add_css_column(css = list('border', '3px solid blue'),
columns = c('mpg', 'disp', 'rownames')) %>%
add_css_rows_in_column(css = list(c('background-color'),
rep(c('red', 'green'), each = 16)),
column = 'mpg')
tableHTML(mtcars) %>%
add_css_rows_in_column(css = list(c('background-color'),
rep(c('red', 'green'), each = 16)),
column = 'mpg') %>%
add_css_column(css = list('border', '3px solid blue'),
columns = c('mpg', 'disp', 'rownames'))
Run the code above in your browser using DataLab