This function adds an object to the report content list. A
report will accept multiple pieces of content. The add_content
function also controls overall alignment of the content on the page, and
whether there is a page break before or after.
add_content( x, object, page_break = TRUE, align = "center", blank_row = "below" )
x | The report_spec to append content to. |
---|---|
object | The object to append. |
page_break | Whether to add a page break after the object.
Valid values are TRUE or FALSE. You can manipulate the |
align | How to align the content. Valid values are 'left', 'right', 'center', and 'centre'. |
blank_row | Whether to put a blank row above or below the content. Valid values are 'above', 'below', 'both', or 'none'. |
The modified report_spec.
The add_content
function adds a piece of content to a report. For a
text report, valid objects are a table or text object. For an RTF or PDF
report, valid objects are a table, text, or plot object. See
create_table
, create_text
, or
create_plot
for further
information on how to create content objects.
Content will be
appended to the report in the order it is added. By default, a page break
is added after the content. You can stack two pieces of content together
closely by setting the page_break
parameter to FALSE, and
the blank_row
parameter to "none".
create_table
, create_text
, and
create_plot
to create content for a report.
Other report:
create_report()
,
footnotes()
,
options_fixed()
,
page_by()
,
page_footer()
,
page_header()
,
print.report_spec()
,
set_margins()
,
title_header()
,
titles()
,
write_report()
library(reporter) library(magrittr) # Create temp file path tmp <- file.path(tempdir(), "mtcars.txt") # Create first table tbl1 <- create_table(mtcars[1:5, 1:6]) %>% column_defaults(width = .5) # Create second table tbl2 <- create_table(mtcars[6:10, 1:6], headerless=TRUE) %>% column_defaults(width = .5) # Create the report object rpt <- create_report(tmp) %>% titles("MTCARS Sample Data", align = "left") %>% add_content(tbl1, page_break = FALSE, align = "left", blank_row = "none") %>% add_content(tbl2, page_break = FALSE, align = "left") %>% add_content(create_text("* NOTE: Above table is actually two tables stacked.")) # Write the report to the file system res <- write_report(rpt) # Write report to console writeLines(readLines(tmp, encoding = "UTF-8")) # MTCARS Sample Data # # mpg cyl disp hp drat wt # ----------------------------------------- # 21 6 160 110 3.9 2.62 # 21 6 160 110 3.9 2.875 # 22.8 4 108 93 3.85 2.32 # 21.4 6 258 110 3.08 3.215 # 18.7 8 360 175 3.15 3.44 # 18.1 6 225 105 2.76 3.46 # 14.3 8 360 245 3.21 3.57 # 24.4 4 146.7 62 3.69 3.19 # 22.8 4 140.8 95 3.92 3.15 # 19.2 6 167.6 123 3.92 3.44 # # * NOTE: Above table is actually two tables stacked.