# \donttest{
selectors_ex1 <-
df_adverse_events %>%
dplyr::mutate(grade = ifelse(dplyr::row_number() == 1L, NA, grade)) %>%
tbl_ae(
id = patient_id,
ae = adverse_event,
soc = system_organ_class,
by = grade
) %>%
add_overall(across = 'by') %>%
modify_header(
all_ae_cols() ~ "**Grade {by}**",
all_overall_cols() ~ "**Total**",
all_unknown_cols() ~ "**Unknown Grade**"
)
# }
Run the code above in your browser using DataLab