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