doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- on_slide(doc, index = 1)
doc <- ph_with(
x = doc, "First title",
location = ph_location_type(type = "title")
)
doc <- on_slide(doc, index = 3)
doc <- ph_with(
x = doc, "Third title",
location = ph_location_type(type = "title")
)
file <- tempfile(fileext = ".pptx")
print(doc, target = file)
Run the code above in your browser using DataLab