# 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