ct <- clintable(mtcars)
ct <- clin_alt_pages(
ct,
key_cols = c("mpg", "cyl", "hp"),
col_groups = list(
c("disp", "drat", "wt"),
c("qsec", "vs", "am"),
c("gear", "carb")
)
) |>
clin_col_widths(mpg = .2, cyl = .2, disp = .15, vs = .15)
print(ct)
Run the code above in your browser using DataLab