# NOT RUN {
doc.filename <- "add_page_number_example.pptx"
doc <- pptx( title = "title" )
doc <- addSlide( doc, slide.layout = "Title Slide" )
# add a page number on the current slide ---
doc <- addPageNumber( doc )
doc <- addSlide( doc, slide.layout = "Title and Content" )
# add a page number with free text ----
doc <- addPageNumber( doc, value = "Page number text")
writeDoc( doc, file = doc.filename )
# }
Run the code above in your browser using DataCamp Workspace