From 013fa72c4b5fa9353959613423b4663fd896951f Mon Sep 17 00:00:00 2001 From: "David J. Bosak" Date: Fri, 12 Nov 2021 19:02:19 -0500 Subject: [PATCH] Increment version and rebuild site. --- DESCRIPTION | 2 +- NEWS.md | 2 +- docs/404.html | 7 +++-- docs/articles/index.html | 2 +- docs/articles/reporter-figure.html | 16 +++++----- docs/articles/reporter-fonts.html | 22 +++++++------- docs/articles/reporter-listing.html | 19 +++++++----- docs/articles/reporter-pageby.html | 19 +++++++----- docs/articles/reporter-rtf.html | 26 ++++++++-------- docs/articles/reporter-spanning.html | 33 +++++++++++---------- docs/articles/reporter-stub.html | 29 ++++++++++-------- docs/articles/reporter-table.html | 27 +++++++++-------- docs/articles/reporter-text.html | 21 +++++++------ docs/articles/reporter-title_header.html | 10 +++---- docs/articles/reporter-wrap.html | 33 +++++++++++---------- docs/articles/reporter.html | 10 +++---- docs/authors.html | 7 +++-- docs/index.html | 9 ++++-- docs/news/index.html | 8 ++--- docs/pkgdown.yml | 3 +- docs/reference/NotesOnPDF.html | 7 +++-- docs/reference/add_content.html | 19 +++++++----- docs/reference/column_defaults.html | 17 ++++++----- docs/reference/create_plot.html | 19 +++++++----- docs/reference/create_report.html | 19 +++++++----- docs/reference/create_table.html | 29 ++++++++++-------- docs/reference/create_text.html | 13 ++++---- docs/reference/define.html | 29 ++++++++++-------- docs/reference/footnotes.html | 27 +++++++++-------- docs/reference/index.html | 7 +++-- docs/reference/lowcase_parens.html | 7 +++-- docs/reference/options_fixed.html | 23 +++++++------- docs/reference/page_by.html | 19 +++++++----- docs/reference/page_footer.html | 15 ++++++---- docs/reference/page_header.html | 15 ++++++---- docs/reference/print.plot_spec.html | 7 +++-- docs/reference/print.report_spec.html | 13 ++++---- docs/reference/print.table_spec.html | 15 ++++++---- docs/reference/print.text_spec.html | 7 +++-- docs/reference/reporter.html | 7 +++-- docs/reference/set_margins.html | 23 +++++++------- docs/reference/spanning_header.html | 33 +++++++++++---------- docs/reference/stub.html | 33 +++++++++++---------- docs/reference/title_header.html | 27 +++++++++-------- docs/reference/titles.html | 27 +++++++++-------- docs/reference/write_registration_file.html | 7 +++-- docs/reference/write_report.html | 23 +++++++------- docs/sitemap.xml | 3 ++ 48 files changed, 455 insertions(+), 340 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 7c7f791f..fa9eb354 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: reporter Type: Package Title: Creates Statistical Reports -Version: 1.2.5 +Version: 1.2.6 Authors@R: c( person("David", "Bosak", email = "dbosak01@gmail.com", role = c("aut", "cre")), person("Kevin", "Kramer", role = "ctb"), diff --git a/NEWS.md b/NEWS.md index 71e8b146..5e452e29 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# reporter 1.2.5 +# reporter 1.2.6 * Added 'HTML' output type to `create_report()` and `write_report()` functions. This was a major change that allows the user to output reports in HTML. diff --git a/docs/404.html b/docs/404.html index f4fc1e9b..457d26cb 100644 --- a/docs/404.html +++ b/docs/404.html @@ -81,7 +81,7 @@ reporter - 1.2.5 + 1.2.6 @@ -134,7 +134,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/articles/index.html b/docs/articles/index.html index 0abb15bf..d6611032 100644 --- a/docs/articles/index.html +++ b/docs/articles/index.html @@ -81,7 +81,7 @@ reporter - 1.2.5 + 1.2.6 diff --git a/docs/articles/reporter-figure.html b/docs/articles/reporter-figure.html index 76c9e509..6b3c8f22 100644 --- a/docs/articles/reporter-figure.html +++ b/docs/articles/reporter-figure.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -149,16 +149,16 @@

    p <- ggplot(dat, aes(x=disp, y=mpg)) + geom_point() # Define plot object -plt <- create_plot(p, height = 4, width = 8) %>% - titles("Figure 1.0", "MTCARS Mileage By Displacement", blank_row = "none") %>% +plt <- create_plot(p, height = 4, width = 8) %>% + titles("Figure 1.0", "MTCARS Mileage By Displacement", blank_row = "none") %>% footnotes("* Motor Trend, 1974") # Add plot to report -rpt <- create_report(tmp, output_type = "PDF") %>% - set_margins(top = 1, bottom = 1) %>% - options_fixed(font_size = 12) %>% - page_header("Sponsor", "Study: cars") %>% - add_content(plt) %>% +rpt <- create_report(tmp, output_type = "PDF") %>% + set_margins(top = 1, bottom = 1) %>% + options_fixed(font_size = 12) %>% + page_header("Sponsor", "Study: cars") %>% + add_content(plt) %>% page_footer(Sys.time(), "Confidential", "Page [pg] of [tpg]") # Write out report diff --git a/docs/articles/reporter-fonts.html b/docs/articles/reporter-fonts.html index d0709874..a6f1c560 100644 --- a/docs/articles/reporter-fonts.html +++ b/docs/articles/reporter-fonts.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -154,22 +154,22 @@

    "cyl" "4 Cylinder" "5 ( 26.3%)" "6 ( 46.2%)"') # Create table -tbl <- create_table(df, first_row_blank = TRUE, borders = "all") %>% - stub(c("var", "label")) %>% - column_defaults(width = 1.25) %>% +tbl <- create_table(df, first_row_blank = TRUE, borders = "all") %>% + stub(c("var", "label")) %>% + column_defaults(width = 1.25) %>% define(var, blank_after = TRUE, label_row = TRUE, - format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% - define(label, indent = .25) %>% - define(A, label = "Group A", align = "center", n = 19) %>% - define(B, label = "Group B", align = "center", n = 13) %>% + format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% + define(label, indent = .25) %>% + define(A, label = "Group A", align = "center", n = 19) %>% + define(B, label = "Group B", align = "center", n = 13) %>% titles("Table 1.0", "MTCARS Summary Table", borders = "outside", - bold = TRUE, font_size = 14) %>% + bold = TRUE, font_size = 14) %>% footnotes("* Motor Trend, 1974", borders = "outside") # Create report and add content rpt <- create_report(tmp, output_type = "RTF", font = "Arial", - font_size = 12) %>% - set_margins(top = 1, bottom = 1) %>% + font_size = 12) %>% + set_margins(top = 1, bottom = 1) %>% add_content(tbl) # Write out report diff --git a/docs/articles/reporter-listing.html b/docs/articles/reporter-listing.html index a66e72db..b12272c8 100644 --- a/docs/articles/reporter-listing.html +++ b/docs/articles/reporter-listing.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -139,11 +142,11 @@

    tmp <- file.path(tempdir(), "example1.txt") # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - titles("Listing 1.0", "MTCARS Data Listing") %>% - add_content(create_table(mtcars)) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + titles("Listing 1.0", "MTCARS Data Listing") %>% + add_content(create_table(mtcars)) %>% + footnotes("* Motor Trend, 1974") %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") @@ -159,7 +162,7 @@

    # MTCARS Data Listing # # mpg cyl disp hp drat wt qsec vs am gear carb -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # 21 6 160 110 3.9 2.62 16.46 0 1 4 4 # 21 6 160 110 3.9 2.875 17.02 0 1 4 4 # 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 diff --git a/docs/articles/reporter-pageby.html b/docs/articles/reporter-pageby.html index dd5242ac..5d136d5e 100644 --- a/docs/articles/reporter-pageby.html +++ b/docs/articles/reporter-pageby.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -143,12 +146,12 @@

    dat <- data.frame(vehicle = rownames(dat), dat) # Define table -tbl <- create_table(dat, show_cols = 1:8) %>% +tbl <- create_table(dat, show_cols = 1:8) %>% page_by(cyl, label="Cylinders: ") # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% - titles("Listing 3.0", "MTCARS Data Listing with Page By") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + titles("Listing 3.0", "MTCARS Data Listing with Page By") %>% add_content(tbl) @@ -165,7 +168,7 @@

    # Cylinders: 4 # # vehicle mpg cyl disp hp drat wt qsec -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Datsun 710 22.8 4 108 93 3.85 2.32 18.61 # Merc 240D 24.4 4 146.7 62 3.69 3.19 20 # Merc 230 22.8 4 140.8 95 3.92 3.15 22.9 @@ -186,7 +189,7 @@

    # Cylinders: 6 # # vehicle mpg cyl disp hp drat wt qsec -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Mazda RX4 21 6 160 110 3.9 2.62 16.46 # Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 # Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 @@ -203,7 +206,7 @@

    # Cylinders: 8 # # vehicle mpg cyl disp hp drat wt qsec -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Hornet Sportabout 18.7 8 360 175 3.15 3.44 17.02 # Duster 360 14.3 8 360 245 3.21 3.57 15.84 # Merc 450SE 16.4 8 275.8 180 3.07 4.07 17.4 diff --git a/docs/articles/reporter-rtf.html b/docs/articles/reporter-rtf.html index cb92626a..8d76f76a 100644 --- a/docs/articles/reporter-rtf.html +++ b/docs/articles/reporter-rtf.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -154,23 +154,23 @@

    "cyl" "4 Cylinder" "5 ( 26.3%)" "6 ( 46.2%)"') # Create table -tbl <- create_table(df, first_row_blank = TRUE) %>% - stub(c("var", "label")) %>% +tbl <- create_table(df, first_row_blank = TRUE) %>% + stub(c("var", "label")) %>% define(var, blank_after = TRUE, label_row = TRUE, - format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% - define(label, indent = .25) %>% - define(A, label = "Group A", align = "center", n = 19) %>% + format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% + define(label, indent = .25) %>% + define(A, label = "Group A", align = "center", n = 19) %>% define(B, label = "Group B", align = "center", n = 13) # Create report and add content -rpt <- create_report(tmp, output_type = "RTF") %>% - set_margins(top = 1, bottom = 1) %>% - options_fixed(font_size = 12) %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - titles("Table 1.0", "MTCARS Summary Table") %>% - add_content(tbl) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, output_type = "RTF") %>% + set_margins(top = 1, bottom = 1) %>% + options_fixed(font_size = 12) %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + titles("Table 1.0", "MTCARS Summary Table") %>% + add_content(tbl) %>% + footnotes("* Motor Trend, 1974") %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") diff --git a/docs/articles/reporter-spanning.html b/docs/articles/reporter-spanning.html index 6ea0f279..f936f104 100644 --- a/docs/articles/reporter-spanning.html +++ b/docs/articles/reporter-spanning.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -143,20 +146,20 @@

    df <- data.frame(vehicle = rownames(dat), dat) # Define Table with spanning headers -tbl <- create_table(df) %>% - titles("Table 1.0", "MTCARS Spanning Headers") %>% - spanning_header(from = "mpg", to = "hp", label = "Span 1", n = 10) %>% - spanning_header(from = "drat", to = "qsec", label = "Span 2", n = 10) %>% - spanning_header(from = "vs", to = "carb", label = "Span 3", n = 10) %>% +tbl <- create_table(df) %>% + titles("Table 1.0", "MTCARS Spanning Headers") %>% + spanning_header(from = "mpg", to = "hp", label = "Span 1", n = 10) %>% + spanning_header(from = "drat", to = "qsec", label = "Span 2", n = 10) %>% + spanning_header(from = "vs", to = "carb", label = "Span 3", n = 10) %>% spanning_header(from = "drat", to = "carb", - label = "Super Span", level = 2) %>% - define(vehicle, label = "Vehicle") %>% - define(mpg, format = "%.1f") %>% - define(disp, visible = FALSE) %>% + label = "Super Span", level = 2) %>% + define(vehicle, label = "Vehicle") %>% + define(mpg, format = "%.1f") %>% + define(disp, visible = FALSE) %>% define(am, visible = FALSE) # Create Report and add table -rpt <- create_report(tmp) %>% +rpt <- create_report(tmp) %>% add_content(tbl, align = "left") # Write the report @@ -169,12 +172,12 @@

    # MTCARS Spanning Headers # # Super Span -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Span 1 Span 2 Span 3 # (N=10) (N=10) (N=10) -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ ¯¯¯¯¯¯¯¯¯¯¯¯ # Vehicle mpg cyl hp drat wt qsec vs gear carb -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Mazda RX4 21.0 6 110 3.9 2.62 16.46 0 4 4 # Mazda RX4 Wag 21.0 6 110 3.9 2.875 17.02 0 4 4 # Datsun 710 22.8 4 93 3.85 2.32 18.61 1 4 1 diff --git a/docs/articles/reporter-stub.html b/docs/articles/reporter-stub.html index e810eb05..b4a5cd88 100644 --- a/docs/articles/reporter-stub.html +++ b/docs/articles/reporter-stub.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -151,21 +154,21 @@

    "cyl" "4 Cylinder" "5 ( 26.3%)" "6 ( 46.2%)"') # Create table -tbl <- create_table(df, first_row_blank = TRUE) %>% - stub(c("var", "label")) %>% +tbl <- create_table(df, first_row_blank = TRUE) %>% + stub(c("var", "label")) %>% define(var, blank_after = TRUE, label_row = TRUE, - format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% - define(label, indent = .25) %>% - define(A, label = "Group A", align = "center", n = 19) %>% + format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% + define(label, indent = .25) %>% + define(A, label = "Group A", align = "center", n = 19) %>% define(B, label = "Group B", align = "center", n = 13) # Create report and add content -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - titles("Table 1.0", "MTCARS Summary Table") %>% - add_content(tbl) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + titles("Table 1.0", "MTCARS Summary Table") %>% + add_content(tbl) %>% + footnotes("* Motor Trend, 1974") %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") @@ -182,7 +185,7 @@

    # # Group A Group B # (N=19) (N=13) -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # # Miles Per Gallon # N 19 13 diff --git a/docs/articles/reporter-table.html b/docs/articles/reporter-table.html index 88e8bcfb..73479f53 100644 --- a/docs/articles/reporter-table.html +++ b/docs/articles/reporter-table.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -151,20 +154,20 @@

    "cyl" "4 Cylinder" "5 ( 26.3%)" "6 ( 46.2%)"') # Create table -tbl <- create_table(df, first_row_blank = TRUE) %>% +tbl <- create_table(df, first_row_blank = TRUE) %>% define(var, label = "Variable", blank_after = TRUE, dedupe = TRUE, - format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% - define(label, label = "") %>% - define(A, label = "Group A", align = "center", n = 19) %>% + format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% + define(label, label = "") %>% + define(A, label = "Group A", align = "center", n = 19) %>% define(B, label = "Group B", align = "center", n = 13) # Create report and add content -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - titles("Table 1.0", "MTCARS Summary Table") %>% - add_content(tbl) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + titles("Table 1.0", "MTCARS Summary Table") %>% + add_content(tbl) %>% + footnotes("* Motor Trend, 1974") %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") @@ -181,7 +184,7 @@

    # # Group A Group B # Variable (N=19) (N=13) -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # # Miles Per Gallon N 19 13 # Mean 18.8 (6.5) 22.0 (4.9) diff --git a/docs/articles/reporter-text.html b/docs/articles/reporter-text.html index c0ed938a..3b7af4e2 100644 --- a/docs/articles/reporter-text.html +++ b/docs/articles/reporter-text.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -154,15 +157,15 @@

    dat <- mtcars[1:10, ] # Create table content -tbl <- create_table(dat) %>% - titles("Table 1.0", "MTCARS Sample Data") %>% +tbl <- create_table(dat) %>% + titles("Table 1.0", "MTCARS Sample Data") %>% footnotes("* Motor Trend, 1974") # Create report and add both table and text content -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - add_content(tbl, page_break = FALSE) %>% - add_content(txt) %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + add_content(tbl, page_break = FALSE) %>% + add_content(txt) %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") @@ -178,7 +181,7 @@

    # MTCARS Sample Data # # mpg cyl disp hp drat wt qsec vs am gear carb -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # 21 6 160 110 3.9 2.62 16.46 0 1 4 4 # 21 6 160 110 3.9 2.875 17.02 0 1 4 4 # 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 diff --git a/docs/articles/reporter-title_header.html b/docs/articles/reporter-title_header.html index bb63695c..8c5b0301 100644 --- a/docs/articles/reporter-title_header.html +++ b/docs/articles/reporter-title_header.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -142,10 +142,10 @@

    tmp <- file.path(tempdir(), "example8.txt") # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% title_header("Listing 4.0", "MTCARS Data Listing with Title Header", - right = c("Page [pg] of [tpg]", "Study: Cars")) %>% - add_content(create_table(mtcars[1:10, ])) %>% + right = c("Page [pg] of [tpg]", "Study: Cars")) %>% + add_content(create_table(mtcars[1:10, ])) %>% footnotes("* Motor Trend, 1974") # Write the report @@ -158,7 +158,7 @@

    # MTCARS Data Listing with Title Header Study: Cars # # mpg cyl disp hp drat wt qsec vs am gear carb -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # 21 6 160 110 3.9 2.62 16.46 0 1 4 4 # 21 6 160 110 3.9 2.875 17.02 0 1 4 4 # 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 diff --git a/docs/articles/reporter-wrap.html b/docs/articles/reporter-wrap.html index beabaf38..c3847f31 100644 --- a/docs/articles/reporter-wrap.html +++ b/docs/articles/reporter-wrap.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -89,7 +89,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -143,21 +146,21 @@

    dat <- data.frame(vehicle = rownames(dat), dat) # Define table -tbl <- create_table(dat, show_cols = 1:8) %>% - define(vehicle, label = "Vehicle", width = 3, id_var = TRUE, align = "left") %>% - define(mpg, label = "Miles per Gallon", width = 1) %>% - define(cyl, label = "Cylinders", format = "%.1f") %>% - define(disp, label = "Displacement") %>% - define(hp, label = "Horsepower", page_wrap = TRUE) %>% - define(drat, visible = FALSE) %>% - define(wt, label = "Weight") %>% +tbl <- create_table(dat, show_cols = 1:8) %>% + define(vehicle, label = "Vehicle", width = 3, id_var = TRUE, align = "left") %>% + define(mpg, label = "Miles per Gallon", width = 1) %>% + define(cyl, label = "Cylinders", format = "%.1f") %>% + define(disp, label = "Displacement") %>% + define(hp, label = "Horsepower", page_wrap = TRUE) %>% + define(drat, visible = FALSE) %>% + define(wt, label = "Weight") %>% define(qsec, label = "Quarter Mile Time", width = 1.5) # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% - titles("Listing 2.0", "MTCARS Data Listing with Page Wrap") %>% - add_content(tbl, align = "left") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + titles("Listing 2.0", "MTCARS Data Listing with Page Wrap") %>% + add_content(tbl, align = "left") %>% page_footer(right = "Page [pg] of [tpg]") # Write the report @@ -171,7 +174,7 @@

    # # Miles per # Vehicle Gallon Cylinders Displacement -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Mazda RX4 21 6.0 160 # Mazda RX4 Wag 21 6.0 160 # Datsun 710 22.8 4.0 108 @@ -190,7 +193,7 @@

    # MTCARS Data Listing with Page Wrap # # Vehicle Horsepower Weight Quarter Mile Time -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # Mazda RX4 110 2.62 16.46 # Mazda RX4 Wag 110 2.875 17.02 # Datsun 710 93 2.32 18.61 diff --git a/docs/articles/reporter.html b/docs/articles/reporter.html index 99a34889..e537ce44 100644 --- a/docs/articles/reporter.html +++ b/docs/articles/reporter.html @@ -38,7 +38,7 @@ reporter - 1.2.5 + 1.2.6 @@ -170,12 +170,12 @@

    tmp <- file.path(tempdir(), "example.txt") # Create report content -tbl <- create_table(mtcars) %>% - titles("MTCARS Sample Data") %>% +tbl <- create_table(mtcars) %>% + titles("MTCARS Sample Data") %>% footnotes("* Motor Trend, 1974") # Create report and add content -rpt <- create_report(tmp) %>% +rpt <- create_report(tmp) %>% add_content(tbl) # Write out the report @@ -199,7 +199,7 @@

    # MTCARS Sample Data # # mpg cyl disp hp drat wt qsec vs am gear carb -# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ +# ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯ # 21 6 160 110 3.9 2.62 16.46 0 1 4 4 # 21 6 160 110 3.9 2.875 17.02 0 1 4 4 # 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 diff --git a/docs/authors.html b/docs/authors.html index a8223413..380319ad 100644 --- a/docs/authors.html +++ b/docs/authors.html @@ -81,7 +81,7 @@ reporter - 1.2.5 + 1.2.6 @@ -134,7 +134,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/index.html b/docs/index.html index 6c63ba8f..70fdd652 100644 --- a/docs/index.html +++ b/docs/index.html @@ -47,7 +47,7 @@ reporter - 1.2.5 + 1.2.6 @@ -98,7 +98,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -202,7 +205,7 @@

    Dev status

  • reporter downloads
  • reporter total downloads
  • R-CMD-check
    • -
  • Codecov test coverage
    • +
  • Codecov test coverage
    • diff --git a/docs/news/index.html b/docs/news/index.html index 6f554fdb..49db244b 100644 --- a/docs/news/index.html +++ b/docs/news/index.html @@ -81,7 +81,7 @@ reporter - 1.2.5 + 1.2.6 @@ -170,9 +170,9 @@

    Changelog

    Source: NEWS.md -
    -

    -reporter 1.2.5 Unreleased +
    +

    +reporter 1.2.6 Unreleased

    • Added ‘HTML’ output type to create_report() and write_report() functions. This was a major change that allows the user to output reports in HTML. By default, the HTML is in a ‘paged’ format, meaning it is suitable for printing. If you want unpaged HTML, set the paper_size parameter on create_report() to ‘none’. This configuration will create a standard HTML web page, with all content dumped to a single page and no page breaks.
      • diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index af005379..c21d9c39 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -3,6 +3,7 @@ pkgdown: 1.6.1 pkgdown_sha: ~ articles: reporter-figure: reporter-figure.html + reporter-fonts: reporter-fonts.html reporter-listing: reporter-listing.html reporter-pageby: reporter-pageby.html reporter-rtf: reporter-rtf.html @@ -13,7 +14,7 @@ articles: reporter-title_header: reporter-title_header.html reporter-wrap: reporter-wrap.html reporter: reporter.html -last_built: 2021-10-17T21:34Z +last_built: 2021-11-13T00:00Z urls: reference: https://reporter.r-sassy.org/reference article: https://reporter.r-sassy.org/articles diff --git a/docs/reference/NotesOnPDF.html b/docs/reference/NotesOnPDF.html index 5da5fce4..5f60bed6 100644 --- a/docs/reference/NotesOnPDF.html +++ b/docs/reference/NotesOnPDF.html @@ -88,7 +88,7 @@ reporter - 1.2.5 + 1.2.6
    @@ -141,7 +141,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/reference/add_content.html b/docs/reference/add_content.html index 19ff9d00..32a9c9e4 100644 --- a/docs/reference/add_content.html +++ b/docs/reference/add_content.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6

    @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -257,18 +260,18 @@

    Examp tmp <- file.path(tempdir(), "mtcars.txt") # Create first table -tbl1 <- create_table(mtcars[1:5, 1:6]) %>% +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) %>% +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") %>% +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 diff --git a/docs/reference/column_defaults.html b/docs/reference/column_defaults.html index 51f63b48..14701216 100644 --- a/docs/reference/column_defaults.html +++ b/docs/reference/column_defaults.html @@ -87,7 +87,7 @@ reporter - 1.2.5 + 1.2.6 @@ -140,7 +140,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -315,14 +318,14 @@

    Examp dat <- data.frame(vehicle = rownames(dat), dat, stringsAsFactors = FALSE) # Define table -tbl <- create_table(dat, show_cols = 1:8) %>% - column_defaults(from = mpg, to = qsec, width = .5, format = "%.1f") %>% - define(vehicle, label = "Vehicle", width = 1.5, align = "left") %>% +tbl <- create_table(dat, show_cols = 1:8) %>% + column_defaults(from = mpg, to = qsec, width = .5, format = "%.1f") %>% + define(vehicle, label = "Vehicle", width = 1.5, align = "left") %>% define(c(cyl, hp), format = "%.0f") # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% - titles("Table 2.5", "MTCARS Sample Report") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + titles("Table 2.5", "MTCARS Sample Report") %>% add_content(tbl) # Write the report diff --git a/docs/reference/create_plot.html b/docs/reference/create_plot.html index 4cf2c06f..a0ead939 100644 --- a/docs/reference/create_plot.html +++ b/docs/reference/create_plot.html @@ -88,7 +88,7 @@ reporter - 1.2.5 + 1.2.6 @@ -141,7 +141,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -251,12 +254,12 @@

    Examp # Create plot object plt <- create_plot(p, height = 4, width = 8) -rpt <- create_report(tmp, output_type = "RTF") %>% - page_header("Client", "Study: XYZ") %>% - titles("Figure 1.0", "MTCARS Miles per Cylinder Plot") %>% - set_margins(top = 1, bottom = 1) %>% - add_content(plt) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, output_type = "RTF") %>% + page_header("Client", "Study: XYZ") %>% + titles("Figure 1.0", "MTCARS Miles per Cylinder Plot") %>% + set_margins(top = 1, bottom = 1) %>% + add_content(plt) %>% + footnotes("* Motor Trend, 1974") %>% page_footer("Time", "Confidential", "Page [pg] of [tpg]") # Write out report diff --git a/docs/reference/create_report.html b/docs/reference/create_report.html index 0e13ec35..1c910e85 100644 --- a/docs/reference/create_report.html +++ b/docs/reference/create_report.html @@ -82,7 +82,7 @@ reporter - 1.2.5 + 1.2.6 @@ -135,7 +135,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -314,15 +317,15 @@

    Examp dat$Month <- as.Date(paste0("1973-", dat$Month, "-01")) # Define table -tbl <- create_table(dat, show_cols = c("Month", "Day", "Wind", "Temp", "Ozone")) %>% - titles("Table 9.6", "Air Quality Sample Report") %>% - column_defaults(width = .5) %>% - define(Month, format = "%B", align = "left", width = 1) %>% - define(Temp, format = "%.0f") %>% +tbl <- create_table(dat, show_cols = c("Month", "Day", "Wind", "Temp", "Ozone")) %>% + titles("Table 9.6", "Air Quality Sample Report") %>% + column_defaults(width = .5) %>% + define(Month, format = "%B", align = "left", width = 1) %>% + define(Temp, format = "%.0f") %>% footnotes("* New York, May to September 1973") # Define report -rpt <- create_report(tmp, orientation = "portrait", missing = "-") %>% +rpt <- create_report(tmp, orientation = "portrait", missing = "-") %>% add_content(tbl) # Write the report to the file system diff --git a/docs/reference/create_table.html b/docs/reference/create_table.html index 6d0ef4c2..abf6c048 100644 --- a/docs/reference/create_table.html +++ b/docs/reference/create_table.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6 @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -354,23 +357,23 @@

    Examp dat_mod <- data.frame(vehicle = rownames(dat), dat, stringsAsFactors = FALSE) # Create table for averages -tbl1 <- create_table(dat_sum) %>% - titles("Table 1.0", "MTCARS Sample Data") %>% - column_defaults(width = .5) %>% - define(all_cars, label = "", width = 2) %>% - define(mpg, format = "%.1f") %>% - define(disp, format = "%.1f") %>% - define(hp, format = "%.0f") %>% +tbl1 <- create_table(dat_sum) %>% + titles("Table 1.0", "MTCARS Sample Data") %>% + column_defaults(width = .5) %>% + define(all_cars, label = "", width = 2) %>% + define(mpg, format = "%.1f") %>% + define(disp, format = "%.1f") %>% + define(hp, format = "%.0f") %>% define(qsec, format = "%.2f") # Create table for modified data -tbl2 <- create_table(dat_mod, headerless = TRUE) %>% - column_defaults(width = .5) %>% +tbl2 <- create_table(dat_mod, headerless = TRUE) %>% + column_defaults(width = .5) %>% define(vehicle, width = 2) # Create the report object -rpt <- create_report(tmp) %>% - add_content(tbl1, align = "left", page_break = FALSE) %>% +rpt <- create_report(tmp) %>% + add_content(tbl1, align = "left", page_break = FALSE) %>% add_content(tbl2, align = "left") # Write the report to the file system diff --git a/docs/reference/create_text.html b/docs/reference/create_text.html index c4e77f5a..028a101c 100644 --- a/docs/reference/create_text.html +++ b/docs/reference/create_text.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6 @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -245,12 +248,12 @@

    Examp "qui officia deserunt mollit anim id est laborum.") # Create the text object -txt <- create_text(dt) %>% - titles("Text Content 1.0", "Sample Text Report") %>% +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") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% add_content(txt) # Write the report to the file system diff --git a/docs/reference/define.html b/docs/reference/define.html index 6b0ffc24..058ee7a7 100644 --- a/docs/reference/define.html +++ b/docs/reference/define.html @@ -86,7 +86,7 @@ reporter - 1.2.5 + 1.2.6 @@ -139,7 +139,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -376,21 +379,21 @@

    Examp dat <- data.frame(vehicle = rownames(dat), dat, stringsAsFactors = FALSE) # Define table -tbl <- create_table(dat, show_cols = 1:8) %>% - define(vehicle, label = "Vehicle", width = 3, id_var = TRUE, align = "left") %>% - define(mpg, label = "Miles per Gallon", width = 1) %>% - define(cyl, label = "Cylinders", format = "%.1f") %>% - define(disp, label = "Displacement") %>% - define(hp, label = "Horsepower", page_wrap = TRUE) %>% - define(drat, visible = FALSE) %>% - define(wt, label = "Weight") %>% +tbl <- create_table(dat, show_cols = 1:8) %>% + define(vehicle, label = "Vehicle", width = 3, id_var = TRUE, align = "left") %>% + define(mpg, label = "Miles per Gallon", width = 1) %>% + define(cyl, label = "Cylinders", format = "%.1f") %>% + define(disp, label = "Displacement") %>% + define(hp, label = "Horsepower", page_wrap = TRUE) %>% + define(drat, visible = FALSE) %>% + define(wt, label = "Weight") %>% define(qsec, label = "Quarter Mile Time", width = 1.5) # Create the report -rpt <- create_report(tmp, orientation = "portrait") %>% - titles("Listing 2.0", "MTCARS Data Listing with Page Wrap") %>% - add_content(tbl, align = "left") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + titles("Listing 2.0", "MTCARS Data Listing with Page Wrap") %>% + add_content(tbl, align = "left") %>% page_footer(right = "Page [pg] of [tpg]") # Write the report diff --git a/docs/reference/footnotes.html b/docs/reference/footnotes.html index fe301af1..7b6cacbf 100644 --- a/docs/reference/footnotes.html +++ b/docs/reference/footnotes.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6 @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -294,19 +297,19 @@

    Examp USPersonalExpenditure, stringsAsFactors = FALSE) # Define table -tbl <- create_table(dat) %>% - titles("Table 1.0", "US Personal Expenditures from 1940 - 1960") %>% - column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% - define(category, label = "Category") %>% - define(X1940, label = "1940") %>% - define(X1945, label = "1945") %>% - define(X1950, label = "1950") %>% - define(X1955, label = "1955") %>% - define(X1960, label = "1960") %>% +tbl <- create_table(dat) %>% + titles("Table 1.0", "US Personal Expenditures from 1940 - 1960") %>% + column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% + define(category, label = "Category") %>% + define(X1940, label = "1940") %>% + define(X1945, label = "1945") %>% + define(X1950, label = "1950") %>% + define(X1955, label = "1955") %>% + define(X1960, label = "1960") %>% footnotes("* In billions of dollars") # Define report -rpt <- create_report(tmp, orientation="portrait") %>% +rpt <- create_report(tmp, orientation="portrait") %>% add_content(tbl) # Write the report diff --git a/docs/reference/index.html b/docs/reference/index.html index 95b129ec..1bbf3e07 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -81,7 +81,7 @@ reporter - 1.2.5 + 1.2.6 @@ -134,7 +134,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/reference/lowcase_parens.html b/docs/reference/lowcase_parens.html index b3ed0d2e..9defb4b9 100644 --- a/docs/reference/lowcase_parens.html +++ b/docs/reference/lowcase_parens.html @@ -83,7 +83,7 @@ reporter - 1.2.5 + 1.2.6 @@ -136,7 +136,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/reference/options_fixed.html b/docs/reference/options_fixed.html index 9e86c490..acd59eb9 100644 --- a/docs/reference/options_fixed.html +++ b/docs/reference/options_fixed.html @@ -83,7 +83,7 @@ reporter - 1.2.5 + 1.2.6 @@ -136,7 +136,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -343,14 +346,14 @@

    Examp tmp <- file.path(tempdir(), "bod.txt") # Define table -tbl <- create_table(BOD, width = 2.5) %>% - titles("Table 3.6", "BOD* Sample Report") %>% - define(Time, format = "Day %s", align = "left") %>% - define(demand, format = "%2.1f mg/l", label = "Demand") %>% +tbl <- create_table(BOD, width = 2.5) %>% + titles("Table 3.6", "BOD* Sample Report") %>% + define(Time, format = "Day %s", align = "left") %>% + define(demand, format = "%2.1f mg/l", label = "Demand") %>% footnotes("* Biochemical Oxygen Demand") # Define report #1 - No blank margins -rpt <- create_report(tmp, orientation="portrait") %>% +rpt <- create_report(tmp, orientation="portrait") %>% add_content(tbl, align = "left") # Write the report @@ -375,9 +378,9 @@

    Examp # Define report #2 - blank margins -rpt <- create_report(tmp, orientation="portrait") %>% - options_fixed(blank_margins = TRUE) %>% - set_margins(top = .5, left = 1) %>% +rpt <- create_report(tmp, orientation="portrait") %>% + options_fixed(blank_margins = TRUE) %>% + set_margins(top = .5, left = 1) %>% add_content(tbl, align = "left") # Write the report diff --git a/docs/reference/page_by.html b/docs/reference/page_by.html index f8e91fbc..b4c2af72 100644 --- a/docs/reference/page_by.html +++ b/docs/reference/page_by.html @@ -87,7 +87,7 @@ reporter - 1.2.5 + 1.2.6 @@ -140,7 +140,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -269,15 +272,15 @@

    Examp dat <- dat[order(dat$Species), ] # Create table -tbl <- create_table(dat) %>% - page_by(Species, "Species: ") %>% +tbl <- create_table(dat) %>% + page_by(Species, "Species: ") %>% define(Species, visible = FALSE) # Create the report object -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header("Sponsor: Iris Society", "Study: flowers") %>% - titles("Table 2.0", "IRIS Sample Report with Page By") %>% - add_content(tbl) %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header("Sponsor: Iris Society", "Study: flowers") %>% + titles("Table 2.0", "IRIS Sample Report with Page By") %>% + add_content(tbl) %>% page_footer(Sys.time(), right = "Page [pg] of [tpg]") # Write the report to the file system diff --git a/docs/reference/page_footer.html b/docs/reference/page_footer.html index c189ef17..8879d1ee 100644 --- a/docs/reference/page_footer.html +++ b/docs/reference/page_footer.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6 @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -260,10 +263,10 @@

    Examp stringsAsFactors = FALSE) # Create the report object -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header("Client: Motor Trend", "Study: Cars") %>% - titles("MTCARS Sample Report") %>% - add_content(create_table(dat)) %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header("Client: Motor Trend", "Study: Cars") %>% + titles("MTCARS Sample Report") %>% + add_content(create_table(dat)) %>% page_footer(Sys.time(), right = "Page [pg] of [tpg]") # Write the report to the file system diff --git a/docs/reference/page_header.html b/docs/reference/page_header.html index d93e8a7e..31c40642 100644 --- a/docs/reference/page_header.html +++ b/docs/reference/page_header.html @@ -83,7 +83,7 @@ reporter - 1.2.5 + 1.2.6 @@ -136,7 +136,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -248,10 +251,10 @@

    Examp stringsAsFactors = FALSE) # Create the report object -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header("Client: Motor Trend", "Study: Cars") %>% - titles("MTCARS Sample Report") %>% - add_content(create_table(dat)) %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header("Client: Motor Trend", "Study: Cars") %>% + titles("MTCARS Sample Report") %>% + add_content(create_table(dat)) %>% page_footer(Sys.time(), right = "Page [pg] of [tpg]") # Write the report to the file system diff --git a/docs/reference/print.plot_spec.html b/docs/reference/print.plot_spec.html index 06ed95e5..defab093 100644 --- a/docs/reference/print.plot_spec.html +++ b/docs/reference/print.plot_spec.html @@ -84,7 +84,7 @@ reporter - 1.2.5 + 1.2.6 @@ -137,7 +137,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/reference/print.report_spec.html b/docs/reference/print.report_spec.html index be8b36f6..ef6a0712 100644 --- a/docs/reference/print.report_spec.html +++ b/docs/reference/print.report_spec.html @@ -85,7 +85,7 @@ reporter - 1.2.5 + 1.2.6 @@ -138,7 +138,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -227,12 +230,12 @@

    Examp tmp <- file.path(tempdir(), "mtcars.txt") # Create the table -tbl <- create_table(mtcars) %>% - titles("Table 1.0", "MTCARS Sample Report") %>% +tbl <- create_table(mtcars) %>% + titles("Table 1.0", "MTCARS Sample Report") %>% footnotes("* NOTE: Data from 1974") # Create the report object -rpt <- create_report(tmp) %>% +rpt <- create_report(tmp) %>% add_content(tbl, align = "left") # Write the report to the file system diff --git a/docs/reference/print.table_spec.html b/docs/reference/print.table_spec.html index 22f65327..94500ffb 100644 --- a/docs/reference/print.table_spec.html +++ b/docs/reference/print.table_spec.html @@ -84,7 +84,7 @@ reporter - 1.2.5 + 1.2.6 @@ -137,7 +137,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -215,10 +218,10 @@

    Examp 
    library(magrittr)
 
 # Create Table
-tbl <- create_table(mtcars) %>% 
-  define(mpg, label = "Miles Per Gallon", width = .5) %>% 
-  define(cyl, label = "Cylinders") %>% 
-  titles("Table 6.4", "MTCARS Sample Table") %>% 
+tbl <- create_table(mtcars) %>% 
+  define(mpg, label = "Miles Per Gallon", width = .5) %>% 
+  define(cyl, label = "Cylinders") %>% 
+  titles("Table 6.4", "MTCARS Sample Table") %>% 
   footnotes("* Motor Trend, 1974")
   
 tbl
diff --git a/docs/reference/print.text_spec.html b/docs/reference/print.text_spec.html
index 9ecb89ad..5d121c7e 100644
--- a/docs/reference/print.text_spec.html
+++ b/docs/reference/print.text_spec.html
@@ -84,7 +84,7 @@
       
       
         reporter
-        1.2.5
+        1.2.6
       
     
 
@@ -137,7 +137,10 @@
       Example 9: RTF, PDF, and HTML
     
     
  • 
-      Example 10: Figure
+      Example 10: Fonts and Borders
+    
    • 
+    
  • 
+      Example 11: Figure
     
    • 
   
 
diff --git a/docs/reference/reporter.html b/docs/reference/reporter.html
index a1da5115..99c041e2 100644
--- a/docs/reference/reporter.html
+++ b/docs/reference/reporter.html
@@ -87,7 +87,7 @@
       
       
         reporter
-        1.2.5
+        1.2.6
       
     
 
@@ -140,7 +140,10 @@
       Example 9: RTF, PDF, and HTML
     
     
  • 
-      Example 10: Figure
+      Example 10: Fonts and Borders
+    
    • 
+    
  • 
+      Example 11: Figure
     
    • 
   
 
diff --git a/docs/reference/set_margins.html b/docs/reference/set_margins.html
index 4d970ee1..0f71c248 100644
--- a/docs/reference/set_margins.html
+++ b/docs/reference/set_margins.html
@@ -84,7 +84,7 @@
       
       
         reporter
-        1.2.5
+        1.2.6
       
     
 
@@ -137,7 +137,10 @@
       Example 9: RTF, PDF, and HTML
     
     
  • 
-      Example 10: Figure
+      Example 10: Fonts and Borders
+    
    • 
+    
  • 
+      Example 11: Figure
     
    • 
   
 
@@ -247,14 +250,14 @@ 
    Examp
 tmp <- file.path(tempdir(), "bod.txt")
 
 # Define table
-tbl <- create_table(BOD, width = 2.5) %>% 
-  titles("Table 3.6", "BOD¹ Sample Report") %>% 
-  define(Time, format = "Day %s", align = "left") %>% 
-  define(demand, format = "%2.1f mg/l", label = "Demand") %>% 
+tbl <- create_table(BOD, width = 2.5) %>% 
+  titles("Table 3.6", "BOD¹ Sample Report") %>% 
+  define(Time, format = "Day %s", align = "left") %>% 
+  define(demand, format = "%2.1f mg/l", label = "Demand") %>% 
   footnotes("¹ Biochemical Oxygen Demand")
        
 # Define report #1 - No blank margins
-rpt <- create_report(tmp, orientation="portrait") %>%
+rpt <- create_report(tmp, orientation="portrait") %>%
   add_content(tbl, align = "left") 
 
 # Write the report
@@ -279,9 +282,9 @@ 
    Examp
 
 
 # Define report #2 - blank margins
-rpt <- create_report(tmp, orientation="portrait") %>%
-  options_fixed(blank_margins = TRUE) %>% 
-  set_margins(top = .5, left = 1) %>% 
+rpt <- create_report(tmp, orientation="portrait") %>%
+  options_fixed(blank_margins = TRUE) %>% 
+  set_margins(top = .5, left = 1) %>% 
   add_content(tbl, align = "left") 
 
 # Write the report
diff --git a/docs/reference/spanning_header.html b/docs/reference/spanning_header.html
index 2d855227..b81c0b82 100644
--- a/docs/reference/spanning_header.html
+++ b/docs/reference/spanning_header.html
@@ -84,7 +84,7 @@
       
       
         reporter
-        1.2.5
+        1.2.6
       
     
 
@@ -137,7 +137,10 @@
       Example 9: RTF, PDF, and HTML
     
     
  • 
-      Example 10: Figure
+      Example 10: Fonts and Borders
+    
    • 
+    
  • 
+      Example 11: Figure
     
    • 
   
 
@@ -285,22 +288,22 @@ 
    Examp
 dat <- dat[order(dat$Species), ]
 
 # Define table
-tbl <- create_table(dat) %>% 
-  titles("Table 3.2", "IRIS Sample Report") %>% 
-  spanning_header(2, 3, label = "Sepal") %>% 
-  spanning_header(4, 5, label = "Petal") %>% 
-  column_defaults(2:5, format = "%.1f") %>% 
-  define(Species, align = "left", dedupe = TRUE, blank_after = TRUE) %>% 
-  define(Sepal.Length, label = "Length") %>% 
-  define(Sepal.Width, label = "Width") %>% 
-  define(Petal.Length, label = "Length") %>% 
-  define(Petal.Width, label = "Width") %>% 
+tbl <- create_table(dat) %>% 
+  titles("Table 3.2", "IRIS Sample Report") %>% 
+  spanning_header(2, 3, label = "Sepal") %>% 
+  spanning_header(4, 5, label = "Petal") %>% 
+  column_defaults(2:5, format = "%.1f") %>% 
+  define(Species, align = "left", dedupe = TRUE, blank_after = TRUE) %>% 
+  define(Sepal.Length, label = "Length") %>% 
+  define(Sepal.Width, label = "Width") %>% 
+  define(Petal.Length, label = "Length") %>% 
+  define(Petal.Width, label = "Width") %>% 
   footnotes("* From Fisher's Iris Dataset")
        
 # Define report
-rpt <- create_report(tmp, orientation="portrait") %>%
-  options_fixed(blank_margins = TRUE) %>% 
-  set_margins(top = 1, bottom =1) %>% 
+rpt <- create_report(tmp, orientation="portrait") %>%
+  options_fixed(blank_margins = TRUE) %>% 
+  set_margins(top = 1, bottom =1) %>% 
   add_content(tbl, align = "left") 
 
 # Write the report
diff --git a/docs/reference/stub.html b/docs/reference/stub.html
index 38a19943..945319c2 100644
--- a/docs/reference/stub.html
+++ b/docs/reference/stub.html
@@ -87,7 +87,7 @@
       
       
         reporter
-        1.2.5
+        1.2.6
       
     
 
@@ -140,7 +140,10 @@
       Example 9: RTF, PDF, and HTML
     
     
  • 
-      Example 10: Figure
+      Example 10: Fonts and Borders
+    
    • 
+    
  • 
+      Example 11: Figure
     
    • 
   
 
@@ -287,9 +290,9 @@ 
    Details
     Amazonas   
     Bahia

    With the following code:

    -tbl <- create_table(dat) %>% 
-  stub(c(continent, country, state_province)) %>% 
-  define(country, indent = .25) %>% 
+tbl <- create_table(dat) %>% 
+  stub(c(continent, country, state_province)) %>% 
+  define(country, indent = .25) %>% 
   define(state_province, indent = .5)
    @@ -322,21 +325,21 @@

    Examp "cyl" "4 Cylinder" "5 ( 26.3%)" "6 ( 46.2%)"') # Create table -tbl <- create_table(df, first_row_blank = TRUE) %>% - stub(c(var, label)) %>% +tbl <- create_table(df, first_row_blank = TRUE) %>% + stub(c(var, label)) %>% define(var, blank_after = TRUE, label_row = TRUE, - format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% - define(label, indent = .25) %>% - define(A, label = "Group A", align = "center", n = 19) %>% + format = c(ampg = "Miles Per Gallon", cyl = "Cylinders")) %>% + define(label, indent = .25) %>% + define(A, label = "Group A", align = "center", n = 19) %>% define(B, label = "Group B", align = "center", n = 13) # Create report and add content -rpt <- create_report(tmp, orientation = "portrait") %>% - page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% - titles("Table 1.0", "MTCARS Summary Table") %>% - add_content(tbl) %>% - footnotes("* Motor Trend, 1974") %>% +rpt <- create_report(tmp, orientation = "portrait") %>% + page_header(left = "Client: Motor Trend", right = "Study: Cars") %>% + titles("Table 1.0", "MTCARS Summary Table") %>% + add_content(tbl) %>% + footnotes("* Motor Trend, 1974") %>% page_footer(left = Sys.time(), center = "Confidential", right = "Page [pg] of [tpg]") diff --git a/docs/reference/title_header.html b/docs/reference/title_header.html index 44ffb75d..99820b4d 100644 --- a/docs/reference/title_header.html +++ b/docs/reference/title_header.html @@ -84,7 +84,7 @@ reporter - 1.2.5 + 1.2.6 @@ -137,7 +137,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -285,20 +288,20 @@

    Examp USPersonalExpenditure, stringsAsFactors = FALSE) # Define table -tbl <- create_table(dat) %>% +tbl <- create_table(dat) %>% title_header("Table 1.0", "US Personal Expenditures from 1940 - 1960", - right = c("Page [pg] of [tpg]", "World Almanac")) %>% - column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% - define(category, label = "Category") %>% - define(X1940, label = "1940") %>% - define(X1945, label = "1945") %>% - define(X1950, label = "1950") %>% - define(X1955, label = "1955") %>% - define(X1960, label = "1960") %>% + right = c("Page [pg] of [tpg]", "World Almanac")) %>% + column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% + define(category, label = "Category") %>% + define(X1940, label = "1940") %>% + define(X1945, label = "1945") %>% + define(X1950, label = "1950") %>% + define(X1955, label = "1955") %>% + define(X1960, label = "1960") %>% footnotes("* In billions of dollars") # Define report -rpt <- create_report(tmp, orientation="portrait") %>% +rpt <- create_report(tmp, orientation="portrait") %>% add_content(tbl) # Write the report diff --git a/docs/reference/titles.html b/docs/reference/titles.html index d6df863b..2663c176 100644 --- a/docs/reference/titles.html +++ b/docs/reference/titles.html @@ -86,7 +86,7 @@ reporter - 1.2.5 + 1.2.6 @@ -139,7 +139,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -310,19 +313,19 @@

    Examp USPersonalExpenditure, stringsAsFactors = FALSE) # Define table -tbl <- create_table(dat) %>% - titles("Table 1.0", "US Personal Expenditures from 1940 - 1960") %>% - column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% - define(category, label = "Category") %>% - define(X1940, label = "1940") %>% - define(X1945, label = "1945") %>% - define(X1950, label = "1950") %>% - define(X1955, label = "1955") %>% - define(X1960, label = "1960") %>% +tbl <- create_table(dat) %>% + titles("Table 1.0", "US Personal Expenditures from 1940 - 1960") %>% + column_defaults(from = X1940, to = X1960, width = .6, format = "$%.2f") %>% + define(category, label = "Category") %>% + define(X1940, label = "1940") %>% + define(X1945, label = "1945") %>% + define(X1950, label = "1950") %>% + define(X1955, label = "1955") %>% + define(X1960, label = "1960") %>% footnotes("* In billions of dollars") # Define report -rpt <- create_report(tmp, orientation="portrait") %>% +rpt <- create_report(tmp, orientation="portrait") %>% add_content(tbl) # Write the report diff --git a/docs/reference/write_registration_file.html b/docs/reference/write_registration_file.html index 7f197b80..d1af5505 100644 --- a/docs/reference/write_registration_file.html +++ b/docs/reference/write_registration_file.html @@ -83,7 +83,7 @@ reporter - 1.2.5 + 1.2.6 @@ -136,7 +136,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • diff --git a/docs/reference/write_report.html b/docs/reference/write_report.html index f1b219d2..9cde5c73 100644 --- a/docs/reference/write_report.html +++ b/docs/reference/write_report.html @@ -83,7 +83,7 @@ reporter - 1.2.5 + 1.2.6 @@ -136,7 +136,10 @@ Example 9: RTF, PDF, and HTML
  • - Example 10: Figure + Example 10: Fonts and Borders +
    • +
  • + Example 11: Figure
    • @@ -259,17 +262,17 @@

    Examp condition(x == 1, "Yes")) # Create the table -tbl <- create_table(dat) %>% - titles("Table 1.0", "BEAVERS Sample Report") %>% - column_defaults(width = .75) %>% - define(day, label = "Day", format = "Day %s") %>% - define(time, label = "Time") %>% - define(temp, label = "Temperature", width = 1, format = "%.1f") %>% - define(activ,label = "Active", format = fmt) %>% +tbl <- create_table(dat) %>% + titles("Table 1.0", "BEAVERS Sample Report") %>% + column_defaults(width = .75) %>% + define(day, label = "Day", format = "Day %s") %>% + define(time, label = "Time") %>% + define(temp, label = "Temperature", width = 1, format = "%.1f") %>% + define(activ,label = "Active", format = fmt) %>% footnotes("* NOTE: Data on beaver habits") # Create the report object -rpt <- create_report(tmp) %>% +rpt <- create_report(tmp) %>% add_content(tbl, align = "left") # Write the report to the file system diff --git a/docs/sitemap.xml b/docs/sitemap.xml index e3e6f5d0..35cf42ee 100644 --- a/docs/sitemap.xml +++ b/docs/sitemap.xml @@ -84,6 +84,9 @@ https://reporter.r-sassy.org/articles/reporter-figure.html + + https://reporter.r-sassy.org/articles/reporter-fonts.html + https://reporter.r-sassy.org/articles/reporter-listing.html