List checks proceed in setDT if type list

Prevents avoiding of these checks by assigning "data.table" or "data.frame" class to a list.
Rdatatable · Jan 15, 2020 · 59f0bfe · 59f0bfe
1 parent c005296
commit 59f0bfe
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/data.table.R b/R/data.table.R
@@ -2703,7 +2703,8 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {
       x[, (nm[1L]) := rn]
       setcolorder(x, nm)
     }
-  } else if (is.list(x) && length(x)==1L && is.matrix(x[[1L]])) {
+  } 
+  if (is.list(x) && length(x)==1L && is.matrix(x[[1L]])) {
     # a single list(matrix) is unambiguous and depended on by some revdeps, #3581
     x = as.data.table.matrix(x[[1L]])
   } else if (is.null(x) || (is.list(x) && !length(x))) {