rename cancovid to can_prov_cases to match epipredict

Author: nmdefries

R/epipredict-data.R

@@ -85,5 +85,4 @@
 #'
 #' THIS IS A STUB This dataset covers the period from March 2020 to March 2023 and is
 #' used in the [epipredict] slide vignette.
-"cancovid"
-
+"can_prov_cases"

data-raw/cancovid.R data-raw/can_prov_cases.Rdata-raw/cancovid.R renamed to data-raw/can_prov_cases.R

@@ -1,4 +1,4 @@
-## code to prepare `cancovid` dataset goes here
+## code to prepare `can_prov_cases` dataset goes here
 
 library(dplyr)
 library(epiprocess)
@@ -107,7 +107,7 @@ ca_pop <- read_csv(
 abbrev_map <- setNames(ca_pop$province, ca_pop$abbreviation)
 
 # Read in data and convert to `epi_df`s.
-cancovid <- purrr::map2(commit_pages$data_url, commit_pages$date, function(url, date) {
+can_prov_cases <- purrr::map2(commit_pages$data_url, commit_pages$date, function(url, date) {
   raw <- readr::read_csv(
     url,
     col_types = cols(
@@ -139,9 +139,9 @@ cancovid <- purrr::map2(commit_pages$data_url, commit_pages$date, function(url,
 
   return(result)
 })
-names(cancovid) <- commit_pages$date
-cancovid <- cancovid %>% bind_rows(.id = "version") %>%
+names(can_prov_cases) <- commit_pages$date
+can_prov_cases <- can_prov_cases %>% bind_rows(.id = "version") %>%
   mutate(version = lubridate::ymd(version)) %>% 
   arrange(version)
 
-usethis::use_data(cancovid, overwrite = TRUE)
+usethis::use_data(can_prov_cases, overwrite = TRUE)