# NOT RUN {
doc <- pptx()
doc <- addSlide( doc, slide.layout = "Title and Content" )
## add a date on the current slide
doc = addDate( doc )
doc <- addSlide( doc, slide.layout = "Title and Content" )
## add a page number on the current slide but not
## the default text (slide number)
doc = addDate( doc, "Dummy date" )
# }
Run the code above in your browser using DataLab