Add lags to multiple column in a dataframe

shift.R

shift <- function(x, ..., shifts = 1, suffix = "lag") {
  vars         <- unname(tidyselect::vars_select(names(x), !!!rlang::quos(...)))
  combinations <- expand.grid(var = vars, shift = shifts, stringsAsFactors = FALSE)

  shift_cols <- purrr::pmap_dfc(combinations, function(var, shift) {
    new_var <- glue::glue("lag_{var}_{shift}")
    tibble::tibble(!!new_var := dplyr::lag(x[[var]], shift))
  })
  dplyr::bind_cols(x, shift_cols)
}

# Example
shift(mtcars, mpg:hp, shifts = c(1, 2, 3))