In epiforecasts/EpiNow: Estimate Realtime Case Counts and Time-varying Epidemiological Parameters

Regional reports

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

region_summaries <- 1:length(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 = "EpiNow"),
                             envir = environment()) 
  })

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

epiforecasts/EpiNow documentation built on Oct. 26, 2020, 2:38 p.m.