adsl <- data.frame(
USUBJID = c(1001, 1002, 1003),
SITEID = c(001, 002, 003),
AGE = c(63, 35, 27),
SEX = c("M", "F", "M")
)
metadata <- data.frame(
dataset = c("adsl", "adae"),
label = c("Subject-Level Analysis", "Adverse Events Analysis")
)
adsl <- xportr_df_label(adsl, metadata, domain = "adsl")
Run the code above in your browser using DataLab