if (FALSE) { # require("rsvg")
library(dplyr)
advs_filtered <- eg_advs %>% filter(
PARAMCD == "SYSBP"
)
out1 <- g_mean_general(eg_adsl, advs_filtered)
generate_slides(out1, paste0(tempdir(), "/g_mean.pptx"))
}
Run the code above in your browser using DataLab