# NOT RUN {
#START_TAG_TEST
doc.filename = "addTable_example.docx"
# set default font size to 10
options( "ReporteRs-fontsize" = 10 )
doc = docx( )
doc = addTitle( doc, "Title example 1", level = 1 )
#
# simpliest usage
doc = addTable( doc, iris[ 1:10,] )
doc = addTitle( doc, "Title example 2", level = 1 )
# demo span.columns
# Iris sample dataset with span cells on column Species
doc = addTable( doc, iris[ 46:55,], span.columns = "Species" )
doc = addTitle( doc, "Title example 3", level = 1 )
#
# demo many options
data( data_ReporteRs )
# add dummy data 'data_ReporteRs' and customise some options
doc = addTable( doc
, data = data_ReporteRs
, header.labels = c( "Header 1", "Header 2", "Header 3"
, "Header 4", "Header 5", "Header 6" )
, groupedheader.row = list( values = c("Grouped column 1", "Grouped column 2")
, colspan = c(3, 3) )
, col.types = c( "character", "integer", "double", "date", "percent", "character" )
, columns.font.colors = list(
"col1" = c("#527578", "#84978F", "#ADA692", "#47423F")
, "col3" = c("#74A6BD", "#7195A3", "#D4E7ED", "#EB8540")
)
, columns.bg.colors = list(
"col2" = c("#527578", "#84978F", "#ADA692", "#47423F")
, "col4" = c("#74A6BD", "#7195A3", "#D4E7ED", "#EB8540")
)
)
# Write the object
writeDoc( doc, file = doc.filename )
#STOP_TAG_TEST
# }
Run the code above in your browser using DataLab