tableHTML(mtcars, footer = 'This is a footer') %>%
add_css_footer(css = list(c('color', 'font-size'), c('blue', '50px')))
tableHTML(mtcars, footer = 'This is a footer') %>%
add_css_footer(css = list(c('color', 'font-size'), c('blue', '50px'))) %>%
add_css_footer(css = list('background-color', 'green'))
Run the code above in your browser using DataLab