Comment for posterity

MichaelChirico · web-flow · commit 8efbcd06ae20 · 2025-01-16T15:28:56.000-08:00
diff --git a/R/data.table.R b/R/data.table.R
@@ -2988,6 +2988,7 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {
       .Call(CsetS4elt, k, as.character(name[[3L]]), x)
     }
   } else if (name %iscall% "get") { # #6725
+    # edit 'get(nm, env)' call to be 'assign(nm, x, envir=env)'
     name = match.call(get, name)
     name[[1L]] = quote(assign)
     name$value = x

Original file line number	Diff line number	Diff line change
`@@ -2988,6 +2988,7 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {`
`2988`	`2988`	`.Call(CsetS4elt, k, as.character(name[[3L]]), x)`
`2989`	`2989`	`}`
`2990`	`2990`	`} else if (name %iscall% "get") { # #6725`
	`2991`	`+ # edit 'get(nm, env)' call to be 'assign(nm, x, envir=env)'`
`2991`	`2992`	`name = match.call(get, name)`
`2992`	`2993`	`name[[1L]] = quote(assign)`
`2993`	`2994`	`name$value = x`