Merge pull request #19 from kenmawer/km-issue_23

km-issue-23: improve printing of epi_ahead and epi_lag

Author: kenmawer

R/epi_shift_internal.R

@@ -130,7 +130,8 @@ bake.step_epi_shift <- function(object, new_data, ...) {
 print.step_epi_shift <-
   function(x, width = max(20, options()$width - 30), ...) {
     ## TODO add printing of the shifts
-    title <- ifelse(x$role == "predictor","Lagging ","Leading ") # Account for lag/lead
+    title <- ifelse(x$role == "predictor","Lagging","Leading") %>%
+      paste0(": ", abs(x$shift),",")
     recipes::print_step(x$columns, x$terms, x$trained, title, width)
     invisible(x)
   }