`%||%` <- function(lhs, rhs) { if (!is.null(lhs)) { lhs } else { rhs } }
capture.output2 <- function(code) { temp <- tempfile() on.exit(file.remove(temp), add = TRUE, after = TRUE) sink(temp) on.exit(sink(), add = TRUE, after = TRUE) …
rlang::list2() #> list() rlang::enquos() #> <list_of<quosure>> #> #> named list() sum() #> [1] 0