# NOT RUN {
#START_TAG_TEST
data( data_ReporteRs )
myFlexTable = FlexTable( data = data_ReporteRs, span.columns = "col1"
, header.columns = TRUE, row.names=FALSE )
myFlexTable[ 1:2, 2:3] = textProperties( color="red" )
myFlexTable[ 3:4, 4:5] = parProperties( text.align="right" )
myFlexTable[ 1:2, 5:6] = cellProperties( background.color="#F2969F")
myFlexTable = setFlexCellContent( myFlexTable, 3, 6, pot("Hello"
, format=textProperties(font.weight="bold") ) + pot("World"
, format=textProperties(font.weight="bold", vertical.align="superscript") ) )
doc = pptx( title = "title" )
doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addFlexTable( doc, myFlexTable )
writeDoc( doc, "addFlexTable_example.pptx")
#STOP_TAG_TEST
# }
Run the code above in your browser using DataLab