Code
library(scda)
library(scda.2022)
library(dplyr)
library(rlistings)
adae <- synthetic_cdisc_dataset("latest", "adae")
out <- adae %>%
select(AESOC, AEDECOD, AETERM) %>%
unique()
var_labels(out) <- c(
AESOC = "MedDRA System Organ Class",
AEDECOD = "MedDRA Preferred Term",
AETERM = "Investigator-Specified\nAdverse Event Term"
)