# NOT RUN {
#START_TAG_TEST
doc.filename = "addRScript_example.pptx"
# Create a new document
doc = pptx( title = "title" )
doc = addSlide( doc, slide.layout = "Title and Content" )
an_rscript = RScript( text = "ls()
x = rnorm(10)", par.properties = parProperties() )
doc = addRScript(doc, an_rscript )
# Write the object
writeDoc( doc, file = doc.filename )
#STOP_TAG_TEST
# }
Run the code above in your browser using DataLab