fix: slight date problem

Author: dsweber2

R/targets_utils.R

@@ -171,6 +171,10 @@ make_shared_grids <- function() {
 }
 
 #' Make forecasts and scores by ahead targets
+#' @description
+#' globals this depends on:
+#' Relies on the following globals:
+#' - `date_step`
 #' @export
 make_forecasts_and_scores_by_ahead <- function() {
   tar_map(
@@ -188,7 +192,7 @@ make_forecasts_and_scores_by_ahead <- function() {
           n_training_pad = 30L,
           forecaster_args = params,
           forecaster_args_names = param_names,
-          date_range_step_size = 7L
+          date_range_step_size = date_step
         )
       )
     ),

covid_hosp_explore.R

@@ -59,6 +59,9 @@ fetch_args <- epidatr::fetch_args_list(return_empty = TRUE, timeout_seconds = 20
 data_targets <- make_data_targets()
 
 
+# These globals are needed by the function below (and they need to persist
+# during the actual targets run, since the commands are frozen as expressions).
+date_step <- 1L
 forecasts_and_scores_by_ahead <- make_forecasts_and_scores_by_ahead()
 forecasts_and_scores <- make_forecasts_and_scores()
 ensemble_targets <- make_ensemble_targets()

flu_hosp_explore.R

@@ -44,6 +44,9 @@ fetch_args <- epidatr::fetch_args_list(return_empty = TRUE, timeout_seconds = 30
 data_targets <- make_data_targets()
 
 
+# These globals are needed by the function below (and they need to persist
+# during the actual targets run, since the commands are frozen as expressions).
+date_step <- 7L
 forecasts_and_scores_by_ahead <- make_forecasts_and_scores_by_ahead()
 forecasts_and_scores <- make_forecasts_and_scores()
 ensemble_targets <- make_ensemble_targets()