basic_table() %>%
split_cols_by("ARM") %>%
add_colcounts() %>%
split_rows_by("RACE", split_fun = drop_split_levels) %>%
add_rowcounts() %>%
analyze("AGE", afun = list_wrap_x(summary), format = "xx.xx") %>%
build_table(DM)
Run the code above in your browser using DataLab