Create formatted PDF report of monthly cross-section reports
Source:R/epitrax.R
epitrax_write_pdf_public_reports.Rd
epitrax_write_pdf_public_reports
writes a PDF report for each public
report, excluding grouped stats reports (which are handled by
epitrax_write_pdf_grouped_stats
). The PDF uses pretty formatting and adds
a header and footer.
Examples
if (FALSE) { # \dontrun{
fsys <- list(
internal = file.path(tempdir(), "internal_reports"),
public = file.path(tempdir(), "public_reports"),
settings = file.path(tempdir(), "report_settings")
)
fsys <- setup_filesystem(fsys)
data_file <- system.file("sample_data/sample_epitrax_data.csv",
package = "epitraxr")
config_file <- system.file("tinytest/test_files/configs/good_config.yaml",
package = "epitraxr")
disease_lists <- list(
internal = "use_defaults",
public = "use_defaults"
)
epitrax <- setup_epitrax(
filepath = data_file,
config_file = config_file,
disease_list_files = disease_lists
) |>
epitrax_preport_month_crosssections(month_offsets = 0) |>
epitrax_write_pdf_public_reports(fsys = fsys)
# Cleanup
unlink(unlist(fsys, use.names = FALSE), recursive = TRUE)
} # }