Actually check that .envir is an environment

The return of the fix for #308
tidyverse · Jan 10, 2024 · 963ea6a · 963ea6a
1 parent 7aa50e6
commit 963ea6a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/glue.R b/R/glue.R
@@ -97,6 +97,7 @@ glue_data <- function(.x, ..., .sep = "", .envir = parent.frame(),
 
   # Perform all evaluations in a temporary environment
   if (is.null(.x)) {
+    stopifnot(is.environment(.envir))
     parent_env <- .envir
   } else if (is.environment(.x)) {
     parent_env <- .x