update nssp based on epidata or socrata timestamp

Author: dsweber2

R/utils.R

@@ -635,7 +635,7 @@ MIN_TIMESTAMP <- as.POSIXct("2000-01-01 00:00:00S", tz = "UTC")
 #' @param missing_value The value to return if the signal is not found.
 #'
 #' @return The last time the signal was updated in POSIXct format.
-get_covidcast_signal_last_update <- function(source, signal, geo_type, missing_value = MAX_TIMESTAMP) {
+get_covidcast_signal_last_update <- function(source, signal, geo_type, missing_value = lubridate::now(tz = "UTC")) {
   tryCatch(
     {
       pub_covidcast_meta() %>%

scripts/covid_hosp_prod.R

@@ -180,7 +180,10 @@ parameters_and_date_targets <- rlang::list2(
   ),
   tar_change(
     nssp_archive_data,
-    change = get_covidcast_signal_last_update("nssp", "pct_ed_visits_covid", "state"),
+    change = max(
+      get_covidcast_signal_last_update("nssp", "pct_ed_visits_covid", "state"),
+      get_socrata_updated_at("https://data.cdc.gov/api/views/mpgq-jmmr", lubridate::now(tz = "UTC"))
+    ),
     command = {
       up_to_date_nssp_state_archive("covid")
     }