library(dplyr)
adeg_filtered <- eg_adeg %>% filter(
PARAMCD == "HR"
)
plot_eg <- g_eg_slide(
adsl = eg_adsl,
adeg = adeg_filtered,
arm = "TRT01P",
paramcd = "PARAM",
subtitle_add_unit = FALSE
) +
ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 45, hjust = 1))
generate_slides(plot_eg, paste0(tempdir(), "/g_eg.pptx"))
Run the code above in your browser using DataLab