restore

MichaelChirico · web-flow · commit eb504091f114 · 2025-07-09T10:05:44.000-07:00
diff --git a/R/as.data.table.R b/R/as.data.table.R
@@ -165,7 +165,7 @@ as.data.table.list = function(x,
         if (is.matrix(xi) && NCOL(xi)<=1L && is.null(colnames(xi))) { # 1 column matrix naming #4124
           xi = x[[i]] = c(xi)
         } else {
-          xi = x[[i]] = as.data.table(xi, keep.rownames=FALSE)  # we will never allow a matrix to be a column; always unpack the columns
+          xi = x[[i]] = as.data.table(xi, keep.rownames=keep.rownames)  # we will never allow a matrix to be a column; always unpack the columns
         }
       }
       # else avoid dispatching to as.data.table.data.table (which exists and copies)

Original file line number	Diff line number	Diff line change
`@@ -165,7 +165,7 @@ as.data.table.list = function(x,`
`165`	`165`	`if (is.matrix(xi) && NCOL(xi)<=1L && is.null(colnames(xi))) { # 1 column matrix naming #4124`
`166`	`166`	`xi = x[[i]] = c(xi)`
`167`	`167`	`} else {`
`168`		`- xi = x[[i]] = as.data.table(xi, keep.rownames=FALSE) # we will never allow a matrix to be a column; always unpack the columns`
	`168`	`+ xi = x[[i]] = as.data.table(xi, keep.rownames=keep.rownames) # we will never allow a matrix to be a column; always unpack the columns`
`169`	`169`	`}`
`170`	`170`	`}`
`171`	`171`	`# else avoid dispatching to as.data.table.data.table (which exists and copies)`