Learn R Programming

ReporteRs (version 0.8.10)

addHeaderRow: add header in a FlexTable

Description

add a header row in a FlexTable

Usage

addHeaderRow(x, value, colspan, text.properties, par.properties,
  cell.properties, first = FALSE)

Arguments

x

a FlexTable object

value

FlexRow object to insert as an header row or a character vector specifying labels to use as columns labels.

colspan

integer vector. Optional. Applies only when argument value is a character vector. Vector specifying the number of columns to span for each corresponding value (in values).

text.properties

Optional. textProperties to apply to each cell. Used only if values are not missing. Default is the value of argument header.text.props provided to funtion FlexTable when object has been created

par.properties

Optional. parProperties to apply to each cell. Used only if values are not missing. Default is the value of argument header.par.props provided to funtion FlexTable when object has been created

cell.properties

Optional. cellProperties to apply to each cell. Used only if values are not missing. Default is the value of argument header.cell.props provided to funtion FlexTable when object has been created

first

if TRUE, row will be inserted as first row

See Also

FlexTable, addFooterRow , alterFlexTable

Examples

Run this code
# NOT RUN {
# simple example ----

# set header.columns to FALSE so that default header row is not added in
# the FlexTable object
# We do only want the 4 first columns of the dataset
MyFTable <- FlexTable( data = iris[46:55, ], header.columns = FALSE )

# add an header row with 3 cells, the first one spans two columns,
# the second one spans two columns and the last one does not span
# multiple columns
MyFTable <- addHeaderRow( MyFTable,
  value = c("Sepal", "Petal", ""),
  colspan = c( 2, 2, 1) )

# add an header row with modified table columns labels
MyFTable <- addHeaderRow( MyFTable,
  value=c("Length", "Width", "Length", "Width", "Species") )

# how to change default formats ----

MyFTable <- FlexTable( data = iris[46:55, ], header.columns = FALSE,
  body.cell.props = cellProperties(border.color="#7895A2"))
# add an header row with table columns labels
MyFTable <- addHeaderRow( MyFTable,
  text.properties = textProperties(color = "#517281", font.weight="bold"),
  cell.properties = cellProperties(border.color="#7895A2"),
  value = c("Sepal Length", "Sepal Width",
    "Sepal Length", "Sepal Width", "Species") )
# }

Run the code above in your browser using DataLab