R/surveillance-area-info.R

In hrbrmstr/cdccovidview: Weekly Surveillance Summary of U.S. COVID-19 Activity

Defines functions surveillance_areas

Documented in surveillance_areas

#' Show network & network catchments
#'
#' @return data frame
#' @export
surveillance_areas <- function() {

  p <- app_params()

  out <- p$catchments[,c("name", "area")]

  as_tibble(out)

}