library(magrittr)
fileout <- tempfile(fileext = ".pptx")
my_pres <- read_pptx() %>%
add_slide(layout = "Title and Content", master = "Office Theme") %>%
ph_empty(type = "body")
small_red <- fp_text(color = "red", font.size = 14)
my_pres <- my_pres %>%
ph_add_par(level = 3) %>%
ph_add_text(str = "A small red text.", style = small_red) %>%
ph_add_par(level = 2) %>%
ph_add_text(str = "Level 2")
print(my_pres, target = fileout)
Run the code above in your browser using DataCamp Workspace