if(interactive()) {
datalist <- list(ADSL = tidyCDISC::adsl, ADVS = tidyCDISC::advs,
ADAE = tidyCDISC::adae, ADLBC = tidyCDISC::adlbc)
pre_adsl <- prep_adsl(datalist$ADSL, input_recipe = 'NONE')
prep_bds(datalist, ADSL = pre_adsl$data)
}
Run the code above in your browser using DataLab