# NOT RUN {
library(magrittr)
my_pres <- read_pptx() %>%
add_slide(layout = "Title and Content", master = "Office Theme") %>%
ph_with("Hello world", location = ph_location_fullsize() ) %>%
print(target = tempfile(fileext = ".pptx") )
# }
Run the code above in your browser using DataCamp Workspace