1#' Parse and Evaluate R code 2#' 3#' This is a simple wrapper around `eval(parse())`, used as the default 4#' transformer. 5#' @param text Text (typically) R code to parse and evaluate. 6#' @param envir environment to evaluate the code in 7#' @seealso `vignette("transformers", "glue")` for documentation on creating 8#' custom glue transformers and some common use cases. 9#' @export 10identity_transformer <- function(text, envir) { 11 eval(parse(text = text, keep.source = FALSE), envir) 12} 13