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