Here is an example of a regulatory-style listing using
reporter and the iris sample data frame. Notice how the
write_report()
function breaks the page automatically and
appropriately:
library(reporter)
# Create temp file name
<- file.path(tempdir(), "example1.pdf")
tmp
# Create the report
<- create_report(tmp, orientation = "portrait", output_type = "PDF") %>%
rpt page_header(left = "Client: 1-800-Flowers", right = "Study: Iris") %>%
titles("Listing 1.0", "IRIS Data Listing") %>%
add_content(create_table(iris)) %>%
footnotes("* Bulletin of the American Iris Society, 1935") %>%
page_footer(left = Sys.time(),
center = "Confidential",
right = "Page [pg] of [tpg]")
# Write the report
write_report(rpt)
# file.show(tmp)
Next: Example 2: Table