if (FALSE) { # require("rsvg")
library(dplyr)
advs_filtered <- eg_advs %>% filter(
PARAMCD == "SYSBP"
)
plot_vs <- g_vs_slide(
adsl = eg_adsl,
advs = advs_filtered,
paramcd = "PARAM",
subtitle_add_unit = FALSE
) +
ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 45, hjust = 1))
# makes editable plots
generate_slides(plot_vs, paste0(tempdir(), "/g_vs.pptx"), fig_editable = TRUE)
# not editable plots, which appear as images
generate_slides(plot_vs, paste0(tempdir(), "/g_vs.pptx"), fig_editable = FALSE)
}
Run the code above in your browser using DataLab