getAER {EpiReport} | R Documentation |
Get full disease-specific epidemiological report
Description
Function to generate the 'Microsoft Word' epidemiological report
(similar to the ECDC Annual Epidemiological Report (AER))
including all disease-specific outputs at each output-specific bookmarks exact location.
(for further information on the outputs and the corresponding bookmarks,
please see the package vignette "The Epidemiological Report Package" with browseVignettes("EpiReport")
)
(see ECDC AER https://www.ecdc.europa.eu/en/all-topics-z/surveillance-and-disease-data/annual-epidemiological-reports-aers)
Usage
getAER(
template = file.path(system.file(package = "EpiReport"),
"template/AER_template.docx"),
outputPath = getwd(),
x = EpiReport::DENGUE2019,
disease = "DENGUE",
year = 2019,
reportParameters = EpiReport::AERparams,
MSCode = EpiReport::MSCode,
pathPNG = system.file("maps", package = "EpiReport")
)
Arguments
template |
doc (see |
outputPath |
character string, the full path where to generate the epidemiological
report 'Word' output.
Default value is the current working directory |
x |
dataframe, raw disease-specific dataset (see specification of the dataset in the
package vignette with |
disease |
character string, disease code (default |
year |
numeric, year to produce the report for (default |
reportParameters |
dataframe, dataset including the required parameters for the report
production (default |
MSCode |
dataframe, correspondence table of GeoCode names and codes
(default |
pathPNG |
character string, the full path to the folder containing the maps (in PNG) to include in the final report |
Value
A 'Word' document
See Also
Default template: getTemplate
Default datasets: MSCode
AERparams
SALM2016
DENGUE2019
Disease-specific outputs: getTableByMS
getSeason
getTrend
getMap
getAgeGender
Examples
## Not run:
# --- Generating the AER report using the default Dengue dataset
getAER()
## End(Not run)
## Not run:
# --- Or using external data (example below)
ZIKV2016 <- read.table("data/ZIKV2016.csv", sep = ",", header = TRUE, stringsAsFactors = FALSE)
output <- "C:/EpiReport/doc/"
pathMap <- "C:/EpiReport/maps/"
getAER(disease = "ZIKV", year = 2016, x = ZIKV2016, outputPath = output, pathPNG = pathMap)
## End(Not run)