create_text | R Documentation |
Function to create a text specification that can be added as content to a report. The text content can be used to include analysis on a statistical report. A text specification is an S3 object of class 'text_spec'.
create_text(txt, width = NULL, align = "left", borders = "none")
txt |
The text to create. |
width |
The width of the text in the specified units of measure. If no width is specified, the full page width will be used. |
align |
How to align the text within the content area. Valid values are 'left', 'right', 'center', or 'centre'. Default is 'left'. |
borders |
Whether and where to place a border. Valid values are 'top', 'bottom', 'left', 'right', 'all', 'none', and 'outside'. Default is 'none'. The 'left', 'right', and 'outside' border specifications only apply to RTF reports. |
To add plain text to a report, use the create_text
function. The
function allows you to set a width and alignment for the text. The
function will preserve any other formatting you apply to the text. See
the add_content
function to control page breaking and
blanks spaces above or below the text.
The text specification also accepts titles and footnotes. See the
titles
and footnotes
functions for further
details.
The text specification.
titles
to add a title block to the text,
footnotes
to add footnotes, and add_content
to add the text object to a report.
Other text:
print.text_spec()
library(reporter)
library(magrittr)
# Create temp file path
tmp <- file.path(tempdir(), "mtcars.txt")
# Create dummy text
dt <- paste0("Lorem ipsum dolor sit amet, consectetur adipiscing elit, ",
"sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. ",
"Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris ",
"nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in ",
"reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla ",
"pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa ",
"qui officia deserunt mollit anim id est laborum.")
# Create the text object
txt <- create_text(dt) %>%
titles("Text Content 1.0", "Sample Text Report") %>%
footnotes("* Cicero, 1st century BCE")
# Create the report object
rpt <- create_report(tmp, orientation = "portrait") %>%
add_content(txt)
# Write the report to the file system
write_report(rpt)
# Write the report to console
writeLines(readLines(tmp, encoding = "UTF-8"))
# Text Content 1.0
# Sample Text Report
#
# Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
# incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis
# nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.
# Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore
# eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt
# in culpa qui officia deserunt mollit anim id est laborum.
#
# * Cicero, 1st century BCE
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.