In EpiNow2: Estimate Real-Time Case Counts and Time-Varying Epidemiological Parameters

Regional reports

regions <- EpiNow2::get_regions(here::here(region_path))
show_title <- TRUE
title_depth <- 4

region_summaries <- seq_along(regions) %>% 
  purrr::map(function(region_index) {
    index <- region_index
    region <- regions[region_index]
    region_name <- names(regions)[region_index]
    out <- knitr::knit_child(
      system.file("templates/_add-region-reports.Rmd", package = "EpiNow2"),
                             envir = environment()) 
  })

cat(paste(region_summaries, collapse = '\n'))

EpiNow2 documentation built on Sept. 26, 2023, 5:11 p.m.