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