add modify header vignette

[shannonpileggi]

Show how various selectors work

[ddsjoberg]

I was thinking about this a bit...we could have the code to create a big table like this one

gtsummary::theme_gtsummary_compact()
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,
    strata = trt,
    by = grade
  ) %>%
  add_overall(across = 'by') %>%
  modify_ae_header(
    all_ae_cols() ~ "**Grade {by}**"
  ) %>%
  bold_labels()

and I can ask Jeffrey to do some photoshop magic to highlight the columns selected by various calls to the all_*_cols() functions. He's done something similar for me in the past with these

[shannonpileggi]

oooh yes that looks awesome!

[ddsjoberg]

I asked J about this, and he no longer has access to Photoshop and Illustrator since he retired. Do you know anyone who could make a cute figure like this?

[shannonpileggi]

Add an example to tbl_ae() showing how to remove the default spanning header.