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')
# Create AE data set
prep_adae(datalist, pre_adsl$data, input_recipe = 'NONE')
}
Run the code above in your browser using DataLab