wrapped_formula <- function() {
some_junk_in_environment <- runif(1e6)
ex <- as.formula(paste("y ~", paste(LETTERS, collapse = "+")))
return(ex)
}
lobstr::obj_size(wrapped_formula())
lobstr::obj_size(butcher(wrapped_formula()))
wrapped_quosure <- function() {
some_junk_in_environment <- runif(1e6)
out <- rlang::quo(x)
return(out)
}
lobstr::obj_size(wrapped_quosure())
lobstr::obj_size(butcher(wrapped_quosure))
Run the code above in your browser using DataLab