tbl <- rtable(
header = LETTERS[1:3],
format = "xx",
rrow("r1", 1, 2, 3),
rrow("r2", 4, 3, 2, indent = 1),
rrow("r3", indent = 2)
)
as_html(tbl)
as_html(tbl, class_table = "table", class_tr = "row")
as_html(tbl, bold = c("header", "row_names"))
if (FALSE) {
Viewer(tbl)
}
Run the code above in your browser using DataLab