body_add_table_section {crosstable}

Add a section with a table and its legend

Description

Add a section with a table and its legend

Usage

body_add_table_section(
  doc,
  x,
  legend,
  ...,
  bookmark = NULL,
  title = getOption("crosstable_section_title", TRUE),
  title_lvl = getOption("crosstable_section_title_level", 3),
  sentence = getOption("crosstable_section_sentence", FALSE)
)

Arguments

doc

a rdocx object

x

a table: crosstable, flextable, or plain old dataframe

legend

the legend to use

...

passed on to body_add_flextable() or body_add_crosstable()

bookmark

the bookmark to use. Defaults to the cleaned variable name of x

title

the title to add for the section. Can also be FALSE (no title) or TRUE (the title defaults to legend)

title_lvl

the title level if applicable

sentence

a sentence to add between the title (if applicable) and the table. If TRUE, defaults to "Information about {tolower(title)} is described in Table @ref({bookmark})".

Value

The docx object doc

Examples

library(officer)
read_docx() %>%
  body_add_title("Description", 1) %>%
  body_add_title("Population A", 2) %>%
  body_add_table_section(head(iris), "The iris dataset", sentence=TRUE) %>%
  body_add_table_section(crosstable(iris), "A crosstable of the iris dataset",
                         title=FALSE, sentence=TRUE, body_fontsize=8) %>%
  write_and_open()