# 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 DataLab