Code
library(scda)
library(scda.2022)
library(tern)
library(dplyr)
adsl <- synthetic_cdisc_dataset("latest", "adsl")
addv <- synthetic_cdisc_dataset("latest", "addv")
adsl <- df_explicit_na(adsl)
addv <- df_explicit_na(addv)
addv_pan <- addv %>%
filter(AEPRELFL == "Y" & DVCAT == "MAJOR") %>%
var_relabel(
DVREAS = "Primary Reason",
DVTERM = "Description"
)