# NOT RUN {
#START_TAG_TEST
#############################
# simple example
#############################
data(pbc_summary)
MyFTable = FlexTable( data = pbc_summary[,1:4], header.columns = TRUE )
# add a footer row with 1 cell that spans four columns
MyFTable = addFooterRow( MyFTable
, value = c("Mean of serum cholesterol (mg/dl)"), colspan = 4 )
#########################################
# example with FlexRow objects usage
#########################################
data(pbc_summary)
# create a FlexTable
MyFTable = FlexTable( data = pbc_summary[,1:4] )
# define a complex formatted text
mytext = pot("*"
, format = textProperties(vertical.align="superscript", font.size = 9)
) + pot( " Mean of serum cholesterol (mg/dl)"
, format = textProperties(font.size = 9)
)
# create a FlexRow - container for 1 cell
footerRow = FlexRow()
footerRow[1] = FlexCell( mytext, colspan = 4 )
# add the FlexRow to the FlexTable
MyFTable = addFooterRow( MyFTable, footerRow )
#STOP_TAG_TEST
# }
Run the code above in your browser using DataCamp Workspace