look in correct environment, ie 2 steps up

timcadman · timcadman · commit 4a1721264a70 · 2025-10-09T13:14:02.000+02:00
diff --git a/R/utils.R b/R/utils.R
@@ -8,7 +8,7 @@
 #' @noRd
 .loadServersideObject <- function(x) {
   tryCatch(
-    eval(parse(text = x), envir = parent.frame()), 
+    eval(parse(text = x), envir = parent.frame(2)), 
     error = function(e) {
       stop("The server-side object", " '", x, "' ", "does not exist")
     }

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@`
`8`	`8`	`#' @noRd`
`9`	`9`	`.loadServersideObject <- function(x) {`
`10`	`10`	`tryCatch(`
`11`		`- eval(parse(text = x), envir = parent.frame()),`
	`11`	`+ eval(parse(text = x), envir = parent.frame(2)),`
`12`	`12`	`error = function(e) {`
`13`	`13`	`stop("The server-side object", " '", x, "' ", "does not exist")`
`14`	`14`	`}`