Apply suggestions from code review

teunbrand · yjunechoe · web-flow · commit d488de834122 · 2024-10-18T21:36:08.000+02:00
Co-authored-by: June Choe &lt;52832839+yjunechoe@users.noreply.github.com&gt;
diff --git a/R/boilerplates.R b/R/boilerplates.R
@@ -115,8 +115,8 @@ boilerplate.Geom <- function(x, ..., checks = NULL, env = caller_env()) {
         with {.fn rlang::exprs}."
       )
     }
-    body <- inject(quote(`{`(!!!c(checks, body))))
+    body <- call2("{", !!!checks, body)
   }
 
-  new_function(fmls, body)
+  new_function(fmls, body, env = caller_env())
 }

Original file line number	Diff line number	Diff line change
`@@ -115,8 +115,8 @@ boilerplate.Geom <- function(x, ..., checks = NULL, env = caller_env()) {`
`115`	`115`	`with {.fn rlang::exprs}."`
`116`	`116`	`)`
`117`	`117`	`}`
`118`		- body <- inject(quote(`{`(!!!c(checks, body))))
	`118`	`+ body <- call2("{", !!!checks, body)`
`119`	`119`	`}`
`120`	`120`
`121`		`- new_function(fmls, body)`
	`121`	`+ new_function(fmls, body, env = caller_env())`
`122`	`122`	`}`