Create a monthly cross-section public report

'create_public_report_month' creates a public report for the given month.

Usage

create_public_report_month(data, diseases, y, m, config)

Arguments

data

Dataframe. Input data with columns:

• disease (character)

• year (integer)

• month (integer)

• counts (integer)

diseases

Dataframe. Diseases to include in the report. Maps EpiTrax disease names to public-facing versions. Must have columns:

• EpiTrax_name (character)

• Public_name (character)

y

Integer. Report year

m

Integer. Report month (1-12)

config

List. Report settings

Value

List containing the report name and data.

Details

Uses the following config options:

• current_population

• avg_5yr_population

• rounding_decimals

• trend_threshold

See also

get_month_counts(), create_report_monthly_avgs() which this function uses and epitraxr_config() for config options

Examples

data_file <- system.file("sample_data/sample_epitrax_data.csv",
                         package = "epitraxr")
# Read in EpiTrax data
data <- read_epitrax_data(data_file)

diseases <- data.frame(
  EpiTrax_name = c("Influenza", "COVID-19", "Measles", "Syphilis"),
  Public_name = c("Influenza", "COVID-19", "Measles", "Syphilis")
)
config_file <- system.file("tinytest/test_files/configs/good_config.yaml",
                          package = "epitraxr")
config <- get_report_config(config_file)

create_public_report_month(
 data = data,
 diseases = diseases,
 y = 2024,
 m = 1,
 config = config
)
#> $name
#> [1] "public_report_Jan2024"
#> 
#> $report
#>     Disease Rate_per_100k Avg_5yr_Rate              Trend
#> 1  COVID-19       144.643      211.930 Less Than Expected
#> 2 Influenza       207.143      215.789           Expected
#> 3   Measles        39.286       49.123 Less Than Expected
#> 4  Syphilis        39.286       61.053 Less Than Expected
#>