need to eval() in the right place

MichaelChirico · web-flow · commit a7c0ed99c157 · 2025-01-16T14:28:36.000-08:00
diff --git a/R/data.table.R b/R/data.table.R
@@ -2991,7 +2991,7 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {
     name = match.call(get, name)
     name[[1L]] = quote(assign)
     name$value = quote(x)
-    eval(name)
+    eval(name, parent.frame())
   }
   .Call(CexpandAltRep, x)  # issue#2866 and PR#2882
   invisible(x)

Original file line number	Diff line number	Diff line change
`@@ -2991,7 +2991,7 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {`
`2991`	`2991`	`name = match.call(get, name)`
`2992`	`2992`	`name[[1L]] = quote(assign)`
`2993`	`2993`	`name$value = quote(x)`
`2994`		`- eval(name)`
	`2994`	`+ eval(name, parent.frame())`
`2995`	`2995`	`}`
`2996`	`2996`	`.Call(CexpandAltRep, x) # issue#2866 and PR#2882`
`2997`	`2997`	`invisible(x)`