lyt <- basic_table() |>
split_cols_by("ARM") |>
add_colcounts() |>
split_rows_by("RACE", split_fun = drop_split_levels) |>
analyze("AGE", afun = function(x) list(min = min(x), max = max(x)))
lyt
tbl <- build_table(lyt, DM)
tbl
Run the code above in your browser using DataLab