# NOT RUN {
data( data_ReporteRs )
myFlexTable = FlexTable( data = data_ReporteRs
, header.columns=FALSE
, row.names=FALSE )
cp1 = cellProperties(background.color="#EBEBEB")
footerRow = FlexRow()
for(i in 1:ncol(data_ReporteRs))
footerRow[i] = FlexCell( pot( paste("footer", i)
, format = textProperties(font.weight="bold") )
, cellProp = cp1 )
myFlexTable = addFooterRow( myFlexTable, footerRow)
# }
Run the code above in your browser using DataLab