needs to be parent.frame(2) i think...

MichaelChirico · web-flow · commit 6ddccd98f696 · 2025-06-24T13:37:06.000-07:00
diff --git a/R/data.table.R b/R/data.table.R
@@ -128,7 +128,7 @@ replace_dot_alias = function(e) {
   }
 }
 
-.reassign_extracted_table = function(name, value, env = parent.frame(), err_msg_na, err_msg_detail = NULL) {
+.reassign_extracted_table = function(name, value, env = parent.frame(2L), err_msg_na, err_msg_detail = NULL) {
   k = eval(name[[2L]], env, env)
   if (is.list(k)) {
     origj = j = if (name %iscall% "$") as.character(name[[3L]]) else eval(name[[3L]], env, env)

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,7 @@ replace_dot_alias = function(e) {`
`128`	`128`	`}`
`129`	`129`	`}`
`130`	`130`
`131`		`-.reassign_extracted_table = function(name, value, env = parent.frame(), err_msg_na, err_msg_detail = NULL) {`
	`131`	`+.reassign_extracted_table = function(name, value, env = parent.frame(2L), err_msg_na, err_msg_detail = NULL) {`
`132`	`132`	`k = eval(name[[2L]], env, env)`
`133`	`133`	`if (is.list(k)) {`
`134`	`134`	`origj = j = if (name %iscall% "$") as.character(name[[3L]]) else eval(name[[3L]], env, env)`