covid_case_death_rates should only import starting from Dec 31 2020

Author: nmdefries

R/epipredict-data.R

@@ -5,9 +5,9 @@
 #' Hopkins University, as downloaded from the CMU Delphi COVIDcast Epidata
 #' API. This example data is a snapshot as of March 20, 2024, and
 #' ranges from December 31, 2020 to December 31, 2021. It
-#' includes all states. It is used in the {epiprocess} correlation vignette.
+#' includes all states.
 #'
-#' @format An [`epiprocess::epi_df`] (object of class `c("epi_df", "tbl_df", "tbl", "data.frame")`) with 37576 rows and 4 columns.
+#' @format An [`epiprocess::epi_df`] (object of class `c("epi_df", "tbl_df", "tbl", "data.frame")`) with 20496 rows and 4 columns.
 #' @section Data dictionary:
 #' The data has columns:
 #' \describe{

R/epiprocess-data.R

@@ -6,7 +6,7 @@
 #' ranges from March 1, 2020 to December 31, 2021. It is limited to California,
 #' Florida, Texas, New York, Georgia, and Pennsylvania.
 #'
-#' It is used in the {epiprocess} growth rate and `epi_slide` vignettes.
+#' It is used in the {epiprocess} growth rate, correlation, `epi_slide` vignettes.
 #'
 #' @format An [`epiprocess::epi_df`] (object of class `c("epi_df", "tbl_df", "tbl", "data.frame")`) with 4026 rows and 6 columns.
 #' @section Data dictionary:

R/sysdata.rda

@@ -3,14 +3,14 @@ library(epidatr)
 
 source(here::here("data-raw/_helper.R"))
 
-d <- as.Date("2024-03-20")
+d <- as.Date("2022-05-31")
 
 x <- pub_covidcast(
   source = "jhu-csse",
   signals = "confirmed_7dav_incidence_prop",
   time_type = "day",
   geo_type = "state",
-  time_values = epirange(20201201, 20211231),
+  time_values = epirange(20201231, 20211231),
   geo_values = "*",
   as_of = d
 ) %>%
@@ -21,7 +21,7 @@ y <- pub_covidcast(
   signals = "deaths_7dav_incidence_prop",
   time_type = "day",
   geo_type = "state",
-  time_values = epirange(20201201, 20211231),
+  time_values = epirange(20201231, 20211231),
   geo_values = "*",
   as_of = d
 ) %>%

data-raw/covid_case_death_rates_tbl.R

@@ -1,6 +1,6 @@
 delayedAssign("covid_case_death_rates", local({
   if (requireNamespace("epiprocess", quietly = TRUE)) {
-    d <- as.Date("2024-03-20")
+    d <- as.Date("2022-05-31")
     epiprocess::as_epi_df(epidatasets:::covid_case_death_rates_tbl, as_of = d)
   } else {
     warning("Since the package `epiprocess` is not installed, this object will be loaded as a tibble (class `tbl_df`)")