fix: covid prod good to go

Author: dsweber2

scripts/covid_hosp_prod.R

@@ -12,7 +12,7 @@ truth_data_date <- "2023-09-01"
 # today, which is a Wednesday. Sometimes, if we're doing a delayed forecast,
 # it's a Thursday. It's used for stamping the data and for determining the
 # appropriate as_of when creating the forecast.
-forecast_generation_dates <- Sys.Date() - 6
+forecast_generation_dates <- Sys.Date()
 # Usually, the forecast_date is the same as the generation date, but you can
 # override this. It should be a Wednesday.
 forecast_dates <- round_date(forecast_generation_dates, "weeks", week_start = 3)
@@ -263,23 +263,24 @@ ensemble_targets <- tar_map(
   tar_target(
     name = make_submission_csv,
     command = {
-      if (!backtest_mode) {
+      if (!backtest_mode && submission_directory != "cache") {
         forecast_reference_date <- get_forecast_reference_date(forecast_date_int)
         ensemble_mixture_res %>%
           format_flusight(disease = "covid") %>%
           write_submission_file(forecast_reference_date, file.path(submission_directory, "model-output/CMU-TimeSeries"))
+      } else {
+        cli_alert_info("Not making submission csv because we're in backtest mode or submission directory is cache")
       }
     },
   ),
   tar_target(
     name = make_climate_submission_csv,
     command = {
-      if (!backtest_mode) {
-        forecasts <- forecast_res
-        forecasts %>%
+      if (!backtest_mode && submission_directory != "cache") {
+        forecast_full_filtered %>%
           filter(forecaster %in% c("climate_base", "climate_geo_agged")) %>%
           group_by(geo_value, target_end_date, quantile) %>%
-          summarize(forecast_date = first(forecast_dates), value = mean(value, na.rm = TRUE), .groups = "drop") %>%
+          summarize(value = mean(value, na.rm = TRUE), .groups = "drop") %>%
           ungroup() %>%
           format_flusight(disease = "covid") %>%
           filter(location %nin% c("60", "66", "78")) %>%
@@ -288,6 +289,8 @@ ensemble_targets <- tar_map(
             submission_directory = file.path(submission_directory, "model-output/CMU-climate_baseline"),
             file_name = "CMU-climate_baseline"
           )
+      } else {
+        cli_alert_info("Not making climate submission csv because we're in backtest mode or submission directory is cache")
       }
     },
   ),