tableHTML(mtcars) %>%
add_editable_column(columns = 'mpg')
tableHTML(mtcars,
rownames = TRUE,
widths = c(150, 100, rep(50, 11)),
row_groups = list(c(10, 10, 12), c('Group 1', 'Group 2', 'Group 3'))) %>%
add_css_column(css = list('background-color', 'lightgray'), columns = 'row_groups') %>%
add_css_column(css = list('text-align', 'right'), columns = 'row_groups') %>%
add_css_header(css = list('background-color', 'lightgray'), headers = 1) %>%
add_editable_column(columns = -1:3)
Run the code above in your browser using DataLab