tmp <- tempfile(fileext = ".pptx")
doc <- officer::read_pptx()
doc <- officer::add_slide(doc, layout = "Title Slide", master = "Office Theme")
print(doc, target = tmp)
doc <- append_title_slides(
doc_o = tmp,
study_id = "My Study #13",
to_page = 1,
save_file = TRUE
)
Run the code above in your browser using DataLab