View source: R/t_ae_pt_soc_diff_slide.R
| t_ae_pt_soc_diff_slide | R Documentation | 
Adverse event table
t_ae_pt_soc_diff_slide(
  adsl,
  adae,
  arm = "TRT01A",
  cutoff = NA,
  split_by_study = FALSE,
  side_by_side = NULL
)
| adsl | ADSL data set, dataframe | 
| adae | ADAE data set, dataframe | 
| arm | Arm variable, character, "'TRT01A" by default. | 
| cutoff | Cutoff threshold | 
| split_by_study | Split by study, building structured header for tables | 
| side_by_side | "GlobalAsia" or "GlobalAsiaChina" to define the side by side requirement | 
rtables object
* Default arm variables are set to '"TRT01A"' for safety output, and '"TRT01P"' for efficacy output
library(dplyr)
adsl <- eg_adsl %>%
  dplyr::mutate(TRT01A = factor(TRT01A, levels = c("A: Drug X", "B: Placebo")))
adae <- eg_adae %>%
  dplyr::mutate(
    TRT01A = factor(TRT01A, levels = c("A: Drug X", "B: Placebo")),
    ATOXGR = AETOXGR
  )
out <- t_ae_pt_soc_diff_slide(adsl, adae, "TRT01A", 2)
print(out)
generate_slides(out, paste0(tempdir(), "/ae_diff.pptx"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.