hide summary statistics in SOC rows

[shannonpileggi]

A user asked about how to hide summary statistics in SOC rows. Here is a solution.

library(gtreg)

# create initial table
tbl <-
  df_adverse_events %>%
  tbl_ae(
    id = patient_id,
    ae = adverse_event,
    soc = system_organ_class,
    by = grade,
    strata = trt
  ) %>%
  bold_labels()

tbl

# modify table to hide values in SOC rows
tbl %>%
  gtsummary::modify_table_body(
    ~ .x %>%
      dplyr::mutate(
        dplyr::across(all_stat_cols(), function(x) ifelse(variable == "soc", "", x))
      )
  )