if(interactive()) {
datalist <- list(ADSL = tidyCDISC::adsl, ADAE = tidyCDISC::adae,
ADVS = tidyCDISC::advs, ADLBC = tidyCDISC::adlbc,
ADTTE = tidyCDISC::adtte)
# Returns combined dataset
data_to_filter(datalist, c("ADSL", "ADAE"))
}
Run the code above in your browser using DataLab