Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
doc <- docx()
writeDoc( doc, "ex_write_doc.docx")
doc <- pptx()
doc <- addSlide(doc, "Title and Content")
writeDoc( doc, "ex_write_doc.pptx")
# }
Run the code above in your browser using DataLab