lyt1 <- basic_table() %>%
summarize_row_groups("STUDYID", label_fstr = "overall summary") %>%
split_rows_by("AEBODSYS", child_labels = "visible") %>%
summarize_row_groups("STUDYID", label_fstr = "subgroup summary") %>%
analyze("AGE", indent_mod = -1L)
tbl1 <- build_table(lyt1, ex_adae)
tbl1
clear_indent_mods(tbl1)
Run the code above in your browser using DataLab