execute embedded R script in specified env

Filip Schouwenaars · Filip Schouwenaars · commit 186f8caac1f8 · 2018-05-25T08:49:21.000+02:00
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -196,7 +196,7 @@ sourceCpp <- function(file = "",
     if (embeddedR && (length(context$embeddedR) > 0)) {
         srcConn <- textConnection(context$embeddedR)
         setwd(rWorkingDir) # will be reset by previous on.exit handler
-        source(file=srcConn, echo=TRUE)
+        source(file = srcConn, local = env, echo = TRUE)
     }
 
     # cleanup the cache dir if requested

Original file line number	Diff line number	Diff line change
`@@ -196,7 +196,7 @@ sourceCpp <- function(file = "",`
`196`	`196`	`if (embeddedR && (length(context$embeddedR) > 0)) {`
`197`	`197`	`srcConn <- textConnection(context$embeddedR)`
`198`	`198`	`setwd(rWorkingDir) # will be reset by previous on.exit handler`
`199`		`- source(file=srcConn, echo=TRUE)`
	`199`	`+ source(file = srcConn, local = env, echo = TRUE)`
`200`	`200`	`}`
`201`	`201`
`202`	`202`	`# cleanup the cache dir if requested`