remove list from as.data.table

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21410,18 +21410,18 @@ test(2329.3, print(dt, col.names = "none"), output = "1: NA NaN\n")
 # Row name extraction from multiple vectors, #7136
 x <- c(1, 2, 3)  
 y <- setNames(c(4, 5, 6), c("A", "B", "C"))  
-test(2330.1, as.data.table.list(list(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
-test(2330.2, as.data.table.list(list(x, y), keep.rownames="custom"), data.table(custom=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
-test(2330.3, as.data.table.list(list(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(4, 5, 6), V2=c(1, 2, 3))) 
+test(2330.1, as.data.table(list(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
+test(2330.2, as.data.table(list(x, y), keep.rownames="custom"), data.table(custom=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
+test(2330.3, as.data.table(list(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(4, 5, 6), V2=c(1, 2, 3))) 
 
 # Behavior under data.frame()
 test(2330.4, as.data.table(data.frame(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
 test(2330.5, as.data.table(data.frame(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(4, 5, 6), V2=c(1, 2, 3)))
 
 a <- setNames(c(7, 8, 9), c("", "", ""))    # test condition about any(nzchar(valid_names))
-test(2330.6, as.data.table.list(list(a), keep.rownames=TRUE), data.table(V1=c(7, 8, 9)))
+test(2330.6, as.data.table(list(a), keep.rownames=TRUE), data.table(V1=c(7, 8, 9)))
 b <- setNames(c(10, 11, 12), c("", "B", ""))
-test(2330.7, as.data.table.list(list(b), keep.rownames=TRUE), data.table(rn=c("", "B", ""), V1=c(10, 11, 12)))
+test(2330.7, as.data.table(list(b), keep.rownames=TRUE), data.table(rn=c("", "B", ""), V1=c(10, 11, 12)))
 
 DF <- data.frame(row.names = letters[1:6], V = 1:6)     # Test data.frame with explicit rownames
 test(2330.8, as.data.table(list(a = 6:1, DF), keep.rownames=TRUE), data.table(rn=c("a", "b", "c", "d", "e", "f"), a=c(6, 5, 4, 3, 2, 1), V=c(1, 2, 3, 4, 5, 6)))