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