body_add_crosstable function

Add a crosstable to an officer document

body_add_crosstable() adds such a flextable an officer document.

body_add_crosstable(
  doc,
  x,
  body_fontsize = NULL,
  header_fontsize = ceiling(body_fontsize * 1.2),
  padding_v = NULL,
  allow_break = TRUE,
  max_cols = 25,
  ...
)

Arguments

• doc: a rdocx object, created by officer::read_docx()
• x: a crosstable object
• body_fontsize: fontsize of the body
• header_fontsize: fontsize of the header. Defaults to 1.2*body_fontsize.
• padding_v: vertical padding of all table rows
• allow_break: allow crosstable rows to break across pages
• max_cols: max number of columns for x
• ...: further arguments passed to as_flextable.crosstable()

Returns

The docx object doc

Examples

#Officer
library(officer)
mytable = crosstable(mtcars2)
doc = read_docx() %>%
    body_add_crosstable(mytable) %>%
    body_add_break %>%
    body_add_crosstable(mytable, compact=TRUE)

dfile = tempfile(fileext=".docx")
print(doc, target = dfile)
if(interactive()) browseURL(dfile)

Author(s)

Dan Chaltiel