Make many lag columns

many_lag_columns.R

#https://purrple.cat/blog/2018/03/02/multiple-lags-with-tidy-evaluation/
lags <- function(var, n=10){
  var <- enquo(var)
  
  indices <- seq_len(n)
  map( indices, ~quo(lag(!!var, !!.x)) ) %>% 
    set_names(sprintf("lag_%s_%02d", quo_text(var), indices))
  
}

d <- data_frame( x = 1:10, y = letters[1:10])
d %>% 
  mutate( !!!lags(x, 3), !!!lags(y,3) )