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))
generate_slides(plot_vs, paste0(tempdir(), "/g_vs.pptx"))
Run the code above in your browser using DataLab