doc <- docx()
writeDoc( doc, "ex_write_doc.docx")
doc <- pptx()
doc <- addSlide(doc, "Title and Content")
writeDoc( doc, "ex_write_doc.pptx")
doc <- bsdoc()
writeDoc( doc, "ex_write_doc/index.html")
Run the code above in your browser using DataLab