Example of creating multiple lags with dplyr

mutliple_lags.R

library(dplyr)

d <- data_frame(x = seq_len(100))

lag_fn <- list()
lags <- 1:10

for(i in lags) {
  
  fixer <- function(x, i) { 
    force(i) 
    return(
      function(x) {
        return(dplyr::lag(x, i))
      }
    )}
  
  lag_fn[[i]] <- fixer(x, i)
}


d %>% 
  mutate(across("x", lag_fn, .names = "lag_{.fn}"))