tmp <- tempfile(fileext = ".pptx")
doc <- officer::read_pptx()
print(doc, target = tmp)
append_section_header_slides(
doc_o = tmp,
section_title = "My Section",
to_page = 1,
save_file = TRUE
)
Run the code above in your browser using DataLab