ensure list2() can be found

teunbrand · teunbrand · commit e6db72d6426b · 2024-10-21T11:17:10.000+02:00
diff --git a/R/boilerplates.R b/R/boilerplates.R
@@ -118,5 +118,8 @@ boilerplate.Geom <- function(x, ..., checks = NULL, env = caller_env()) {
     body <- call2("{", !!!checks, body)
   }
 
-  new_function(fmls, body, env = caller_env())
+  # We encapsulate rlang::list2
+  new_env <- new_environment(list(list2 = list2), env)
+
+  new_function(fmls, body, env = new_env)
 }

Original file line number	Diff line number	Diff line change
`@@ -118,5 +118,8 @@ boilerplate.Geom <- function(x, ..., checks = NULL, env = caller_env()) {`
`118`	`118`	`body <- call2("{", !!!checks, body)`
`119`	`119`	`}`
`120`	`120`
`121`		`- new_function(fmls, body, env = caller_env())`
	`121`	`+ # We encapsulate rlang::list2`
	`122`	`+ new_env <- new_environment(list(list2 = list2), env)`
	`123`	`+`
	`124`	`+ new_function(fmls, body, env = new_env)`
`122`	`125`	`}`