library(dplyr)
adsl <- eg_adsl %>%
mutate(DISTRTFL = sample(c("Y", "N"), size = nrow(eg_adsl), replace = TRUE, prob = c(.1, .9))) %>%
preprocess_t_ds()
out1 <- t_ds_slide(adsl, "TRT01P")
print(out1)
generate_slides(out1, paste0(tempdir(), "/ds.pptx"))
out2 <- t_ds_slide(adsl, "TRT01P", split_by_study = TRUE)
print(out2)
Run the code above in your browser using DataLab