adjust method dispatch

ben-schwen · ben-schwen · commit 0e53a5a2475d · 2025-03-21T09:38:58.000+01:00
diff --git a/R/as.data.table.R b/R/as.data.table.R
@@ -219,7 +219,7 @@ as.data.table.data.frame = function(x, keep.rownames=FALSE, key=NULL, ...) {
     class_orig = class(x)
     x = as.data.frame(x)
     if (identical(class(x), class_orig)) setattr(x, "class", "data.frame") # cater for cases when as.data.frame can generate a loop #6874
-    return(as.data.table(x, keep.rownames=keep.rownames, key=key, ...))
+    return(as.data.table.data.frame(x, keep.rownames=keep.rownames, key=key, ...))
   }
   if (!isFALSE(keep.rownames)) {
     # can specify col name to keep.rownames, #575; if it's the same as key,

Original file line number	Diff line number	Diff line change
`@@ -219,7 +219,7 @@ as.data.table.data.frame = function(x, keep.rownames=FALSE, key=NULL, ...) {`
`219`	`219`	`class_orig = class(x)`
`220`	`220`	`x = as.data.frame(x)`
`221`	`221`	`if (identical(class(x), class_orig)) setattr(x, "class", "data.frame") # cater for cases when as.data.frame can generate a loop #6874`
`222`		`- return(as.data.table(x, keep.rownames=keep.rownames, key=key, ...))`
	`222`	`+ return(as.data.table.data.frame(x, keep.rownames=keep.rownames, key=key, ...))`
`223`	`223`	`}`
`224`	`224`	`if (!isFALSE(keep.rownames)) {`
`225`	`225`	`# can specify col name to keep.rownames, #575; if it's the same as key,`