evaluation frame for meanwhile pipe

shikokuchuo · shikokuchuo · commit 8b5e779da670 · 2022-03-09T12:52:13.000Z
diff --git a/R/pipe.R b/R/pipe.R
@@ -148,7 +148,7 @@
 `%~%` <- function(x, expr) {
   call <- substitute(expr)
   if (unresolved(x)) while (unresolved(x <- x$data)) {
-    eval(call, envir = parent.frame(2L), enclos = baseenv())
+    eval(call, envir = parent.frame(), enclos = baseenv())
   }
   x
 }

Original file line number	Diff line number	Diff line change
`@@ -148,7 +148,7 @@`
`148`	`148`	`%~%` <- function(x, expr) {
`149`	`149`	`call <- substitute(expr)`
`150`	`150`	`if (unresolved(x)) while (unresolved(x <- x$data)) {`
`151`		`- eval(call, envir = parent.frame(2L), enclos = baseenv())`
	`151`	`+ eval(call, envir = parent.frame(), enclos = baseenv())`
`152`	`152`	`}`
`153`	`153`	`x`
`154`	`154`	`}`