refactor: remove Suggests dependence on covidcast

* just download the state data file, don't import covidcast
* covidcast depends on sf which is tough to install

Author: dshemetov

DESCRIPTION

@@ -49,7 +49,6 @@ Imports:
     vctrs,
     workflows (>= 1.0.0)
 Suggests:
-    covidcast,
     data.table,
     epidatr (>= 1.0.0),
     fs,

data-raw/case_death_rate_subset.R

@@ -1,28 +1,25 @@
 library(tidyverse)
-library(covidcast)
 library(epidatr)
 library(epiprocess)
 
-x <- covidcast(
+x <- pub_covidcast(
   data_source = "jhu-csse",
   signals = "confirmed_7dav_incidence_prop",
   time_type = "day",
   geo_type = "state",
   time_values = epirange(20201231, 20211231),
   geo_values = "*"
 ) %>%
-  fetch() %>%
   select(geo_value, time_value, case_rate = value)
 
-y <- covidcast(
+y <- pub_covidcast(
   data_source = "jhu-csse",
   signals = "deaths_7dav_incidence_prop",
   time_type = "day",
   geo_type = "state",
   time_values = epirange(20201231, 20211231),
   geo_values = "*"
 ) %>%
-  fetch() %>%
   select(geo_value, time_value, death_rate = value)
 
 case_death_rate_subset <- x %>%

data-raw/state_census.R

@@ -1,11 +1,14 @@
 library(dplyr)
 library(tidyr)
 
-state_census <- covidcast::state_census %>%
+remote_file <- "https://github.com/cmu-delphi/covidcast/raw/refs/heads/main/R-packages/covidcast/data/state_census.rda"
+download.file(remote_file, "state_census.rda")
+load("state_census.rda")
+state_census <- state_census %>%
   select(STATE, NAME, POPESTIMATE2019, ABBR) %>%
   rename(abbr = ABBR, name = NAME, pop = POPESTIMATE2019, fips = STATE) %>%
   mutate(abbr = tolower(abbr)) %>%
   as_tibble()
-
+file.remove("state_census.rda")
 
 usethis::use_data(state_census, overwrite = TRUE)