# NOT RUN {
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, class_td = "aaa")
# }
# NOT RUN {
Viewer(tbl)
# }
Run the code above in your browser using DataLab