R/capture.R

In linne: Convenient 'CSS'

# capture ...
capture <- function(...){
  qs <- rlang::enquos(...)
  
  quosures <- lapply(qs, function(x, env){
    rlang::new_quosure(x, env = env)
  }, env = parent.frame())

  eval <- lapply(quosures, function(x){
    try <- tryCatch(rlang::eval_tidy(x), error = function(e) e)

    if(rlang::is_function(try))
      return(x)

    if(!inherits(try, "error"))
      return(try)
    
    x
  })
}