Formatting Reports with Named Regions

Stefan Fleck

2019-03-29

library(tatoo)

Introduction

As of v.1.1.0 tatoo assigns named regions when writing .xlsx files. tatoo can use these named regions to painlessly apply formatting to tables inside Excel workbooks in bulk.

Example

wb <- as_workbook(iris[1:5, ])
a plain table

a plain table

style_colnames <- openxlsx::createStyle(textDecoration = "bold")

walk_regions(wb, "colnames", openxlsx::addStyle, style_colnames)
walk_regions(wb, "table",    openxlsx::setColWidths, widths = 14)
a stylish table

a stylish table

Named region names

The names of the named regions associated with a table are constructed from the following elements:

Examples:

 show_regions <- function(x){
   unique(regions(as_workbook(x))$region)
 }
show_regions(mash_table(iris, iris))
## [1] "row_mashed_table_4C60nkOI"         
## [2] "row_mashed_table_colnames_OjPIjVua"
## [3] "row_mashed_table_body_UZlqbZnr"
show_regions(mash_table(iris, iris, mash_method = "col"))
## [1] "col_mashed_table_0qRGSHrE"         
## [2] "col_mashed_table_colnames_VFYxT95c"
## [3] "col_mashed_table_body_uw6BPuSw"
show_regions(comp_table(iris, iris))
## [1] "composite_table_multinames_Rbyj5EhU"
## [2] "composite_table_I2KeppiF"           
## [3] "composite_table_colnames_TRAl9Aft"  
## [4] "composite_table_body_3SHBBNtU"
show_regions(stack_table(iris, iris))
## [1] "stacked_table_Hqg8ZSx2"          "stacked_table_colnames_hMgK2Xpx"
## [3] "stacked_table_body_pshmTUZC"     "stacked_table_FFa8BFEC"         
## [5] "stacked_table_colnames_uLWp6NfG" "stacked_table_body_zBlS9aS5"
show_regions(tag_table(
  iris, 
  tt_meta(
    table_id = "tab1", 
    title = "a title", 
    footer = "blahblubb")
))
## [1] "tab1_header_9qWWD86l"         "tab1_table_hLlVjHtT"         
## [3] "tab1_table_colnames_WUjvnMn8" "tab1_table_body_MuLCtApn"    
## [5] "tab1_footer_96cJNpVM"

Formatting parts of tables with walk_regions

walk_regions() is a way to apply formatting to Workbook regions. The syntax is inspired by purrr::walk(). walk_regions() takes the following arguments:

Examples

The following examples show how walk_regions() can be used to format column names, table captions (headers) and the values inside a table (body).

x <- mash_table(
  iris[1:2, ], 
  iris[1:2, ],
  meta = tt_meta(table_id = "iris", title = "example table")
) 
wb <- as_workbook(x)

style_iris     <- openxlsx::createStyle(fgFill = "pink")
style_header   <- openxlsx::createStyle(textDecoration = "italic")
style_colnames <- openxlsx::createStyle(textDecoration = "bold", valign = "top")
style_body     <- openxlsx::createStyle(textRotation = 10)


walk_regions(wb, "iris", openxlsx::addStyle, style = style_iris)
walk_regions(wb, "header", openxlsx::addStyle, style = style_header, stack = TRUE)
walk_regions(wb, "colnames", openxlsx::addStyle, style = style_colnames, stack = TRUE)
walk_regions(wb, "body", openxlsx::addStyle, style = style_body, stack = TRUE)


# You can also use functions that have *either* the rows or cols argument,
# so the following works:
walk_regions(wb, "table", openxlsx::setColWidths, widths = 14)
walk_regions(wb, "colnames", openxlsx::setRowHeights, heights = 34)
a very stylish table

a very stylish table