doc.filename = "addFlexTable_example.pptx"
options( "ReporteRs-fontsize" = 24 )
doc = pptx( title = "title" )
# get layouts names
layouts = slide.layouts(doc)
layouts
# loop over layout names to plot each slide style
for(i in layouts ){
slide.layouts(doc, i )
title(sub = i )
if( interactive() ) readline(prompt = "show next slide layout")
}
Run the code above in your browser using DataCamp Workspace