Code
library(dplyr)
library(rlistings)
adae <- random.cdisc.data::cadae
out <- adae %>%
select(AESOC, AEDECOD, AELLT, AETERM) %>%
unique()
var_labels(out) <- c(
AESOC = "MedDRA System Organ Class",
AEDECOD = "MedDRA Preferred Term",
AELLT = "MedDRA Lowest Level Term",
AETERM = "Investigator-Specified\nAdverse Event Term"
)