wip: production pipeline

Author: dshemetov

.gitignore

@@ -9,3 +9,4 @@ scripts/**.html
 nohup.out
 run.Rout
 tmp.R
+reports/

scripts/covid_hosp_prod.R

@@ -23,13 +23,6 @@ get_exclusions <- function(date, exclusions_json = here::here("scripts", "geo_ex
 forecast_generation_date <- as.character(seq.Date(as.Date("2024-01-01"), Sys.Date(), by = "1 week"))
 geo_exclusions <- Vectorize(get_exclusions)(forecast_generation_date)
 
-tib1 <- tidyr::expand_grid(
-  tibble(
-    forecast_generation_date = forecast_generation_date,
-    geo_exclusions = geo_exclusions
-  )
-)
-
 rlang::list2(
   tar_target(
     aheads,
@@ -38,7 +31,12 @@ rlang::list2(
     }
   ),
   tar_map(
-    values = tib1,
+    values = tidyr::expand_grid(
+      tibble(
+        forecast_generation_date = forecast_generation_date,
+        geo_exclusions = geo_exclusions
+      )
+    ),
     names = "forecast_generation_date",
     tar_target(
       hhs_latest_data,