a

Author: dshemetov

R/forecasters/forecaster_scaled_pop.R

@@ -142,6 +142,14 @@ scaled_pop <- function(epi_data,
     )
   }
 
+  df <- preproc %>%
+    prep(epi_data) %>%
+    bake(epi_data)
+  write_rds(df, "df2.rds")
+
+  df1 <- read_rds("df1.rds")
+  df2 <- read_rds("df2.rds")
+
   # with all the setup done, we execute and format
   pred <- run_workflow_and_format(preproc, postproc, trainer, season_data, epi_data)
   # now pred has the columns

scripts/covid_hosp_explore.R

@@ -19,8 +19,8 @@ fetch_args <- epidatr::fetch_args_list(return_empty = FALSE, timeout_seconds = 4
 # with prototyping the pipeline.
 dummy_mode <- as.logical(Sys.getenv("DUMMY_MODE", FALSE))
 # For testing, reduce dates
-forecast_generation_dates <- forecast_generation_dates[1:10]
-forecast_dates <- forecast_dates[1:10]
+forecast_generation_dates <- forecast_generation_dates[3]
+forecast_dates <- forecast_dates[3]
 
 
 # ================================ FORECASTER PARAMETERS ====================
@@ -457,6 +457,8 @@ forecasts_and_scores <- tar_map(
       # if (aheads == 14) {
       #   browser()
       # }
+
+      browser()
       out <- epix_slide_simple(
         joined_archive_data,
         forecaster_fn,