rlang-static-data-mask.R

f1 <- function(...) {
  data <- list(a = 100)
  # Optionally, for performance if calling `eval_tidy()` a lot:
  # data <- as_data_mask(data)
  
  dots <- rlang::enquos(...)
  n_dots <- length(dots)
  
  out <- vector("list", length = n_dots)
  
  for (i in seq_len(n_dots)) {
    out[[i]] <- rlang::eval_tidy(dots[[i]], data = data)
  }
  
  out
}

a <- 0
b <- 5

f1(a + b, a + 1000)
#> [[1]]
#> [1] 105
#> 
#> [[2]]
#> [1] 1100