fix %<-% usage

Author: dsweber2

R/forecaster_scaled_pop.R

@@ -38,6 +38,7 @@
 #'   [sanitize_args_predictors_trainer]
 #' @importFrom epipredict epi_recipe step_population_scaling frosting arx_args_list layer_population_scaling
 #' @importFrom tibble tibble
+#' @importFrom zeallot %<-%
 #' @importFrom recipes all_numeric
 #' @export
 scaled_pop <- function(epi_data,
@@ -76,7 +77,7 @@ scaled_pop <- function(epi_data,
   # if you want to hardcode particular predictors in a particular forecaster
   predictors <- c(outcome, extra_sources)
   # TODO: Partial match quantile_level coming from here (on Dmitry's machine)
-  c(args_list, predictors, trainer) <- sanitize_args_predictors_trainer(epi_data, outcome, predictors, trainer, args_list)
+  c(args_list, predictors, trainer) %<-% sanitize_args_predictors_trainer(epi_data, outcome, predictors, trainer, args_list)
   # end of the copypasta
   # finally, any other pre-processing (e.g. smoothing) that isn't performed by
   # epipredict

tests/testthat/test-forecasters-basics.R

@@ -5,6 +5,7 @@ forecasters <- list(
   c("flatline_fc", flatline_fc),
   c("smoothed_scaled", smoothed_scaled)
 )
+forecaster <- c("scaled_pop", scaled_pop)
 for (forecaster in forecasters) {
   test_that(paste(forecaster[[1]], "gets the date and columns right"), {
     jhu <- epipredict::case_death_rate_subset %>%