refactor: one more %<>%

dshemetov · dshemetov · commit ad2a50b11fc5 · 2023-11-01T16:10:44.000-07:00
diff --git a/R/forecaster.R b/R/forecaster.R
@@ -82,7 +82,7 @@ arx_preprocess <- function(rec, outcome, predictors, args_list) {
   lags <- args_list$lags
   for (l in seq_along(lags)) {
     p <- predictors[l]
-    rec <- rec %>% step_epi_lag(!!p, lag = lags[[l]])
+    rec %<>% step_epi_lag(!!p, lag = lags[[l]])
   }
   rec %<>%
     step_epi_ahead(!!outcome, ahead = args_list$ahead) %>%

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,7 @@ arx_preprocess <- function(rec, outcome, predictors, args_list) {`
`82`	`82`	`lags <- args_list$lags`
`83`	`83`	`for (l in seq_along(lags)) {`
`84`	`84`	`p <- predictors[l]`
`85`		`- rec <- rec %>% step_epi_lag(!!p, lag = lags[[l]])`
	`85`	`+ rec %<>% step_epi_lag(!!p, lag = lags[[l]])`
`86`	`86`	`}`
`87`	`87`	`rec %<>%`
`88`	`88`	`step_epi_ahead(!!outcome, ahead = args_list$ahead) %>%`