zeallot (%<-%) needs all args

Author: dsweber2

R/forecaster_flatline.R

@@ -40,7 +40,7 @@ flatline_fc <- function(epi_data,
   args_list <- do.call(flatline_args_list, args_input)
   # if you want to ignore extra_sources, setting predictors is the way to do it
   predictors <- c(outcome, extra_sources)
-  c(args_list, predictors) %<-% sanitize_args_predictors_trainer(epi_data, outcome, predictors, NULL, args_list)
+  c(args_list, predictors, trainer) %<-% sanitize_args_predictors_trainer(epi_data, outcome, predictors, NULL, args_list)
   # end of the copypasta
   # finally, any other pre-processing (e.g. smoothing) that isn't performed by
   # epipredict