Have a default for envir

tidyverse · Nov 28, 2023 · a1b5a75 · a1b5a75
1 parent 4abcc2a
commit a1b5a75
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/transformer.R b/R/transformer.R
@@ -7,7 +7,7 @@
 #' @seealso `vignette("transformers", "glue")` for documentation on creating
 #'   custom glue transformers and some common use cases.
 #' @export
-identity_transformer <- function(text, envir) {
+identity_transformer <- function(text, envir = parent.frame()) {
   with_glue_error(
     expr <- parse(text = text, keep.source = FALSE),
     "Failed to parse glue component"

diff --git a/tests/testthat/_snaps/transformer.md b/tests/testthat/_snaps/transformer.md
@@ -14,6 +14,6 @@
     Condition
       Error:
       ! Failed to evaluate glue component {NOTFOUND}
-      Caused by error in `identity_transformer()`:
-      ! argument "envir" is missing, with no default
+      Caused by error:
+      ! object 'NOTFOUND' not found