From a1b5a75a2a66ec5520f80784801c656b412fec9a Mon Sep 17 00:00:00 2001 From: Jenny Bryan Date: Mon, 27 Nov 2023 18:47:47 -0800 Subject: [PATCH] Have a default for `envir` --- R/transformer.R | 2 +- tests/testthat/_snaps/transformer.md | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/transformer.R b/R/transformer.R index ab1b49d..2ac34b7 100644 --- 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 index 62fc32f..ffbb48a 100644 --- 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