Code
library(scda)
library(scda.2022)
library(dplyr)
library(rlistings)
adcm <- synthetic_cdisc_dataset("latest", "adcm")
out <- adcm %>%
select(ATC2, CMDECOD, CMTRT) %>%
unique()
var_labels(out) <- c(
ATC2 = "ATC Class Level 2",
CMDECOD = "WHODrug Preferred Name",
CMTRT = "Investigator-Specified\nTreatment Term"
)