Extract keep.rownames and key from ...

Author: Mukulyadav2004

R/as.data.table.R

@@ -245,15 +245,21 @@ as.data.table.data.frame = function(x, keep.rownames=FALSE, key=NULL, ...) {
   ans
 }
 
-as.data.table.data.table = function(x, keep.rownames, key, ...) {
+as.data.table.data.table = function(x, ...) {
+    # Extract keep.rownames and key from ... if provided
+  dots = list(...)
+  keep.rownames = if("keep.rownames" %in% names(dots)) dots$keep.rownames else FALSE
+  key_provided = "key" %in% names(dots)
+  key = if(key_provided) dots$key else NULL
+
   # as.data.table always returns a copy, automatically takes care of #473
   if (any(cols_with_dims(x))) { # for test 2089.2
     return(as.data.table.list(x, keep.rownames = if(missing(keep.rownames)) FALSE else keep.rownames, key = if(missing(key)) NULL else key, ...))
   }
   x = copy(x) # #1681
   # fix for #1078 and #1128, see .resetclass() for explanation.
   setattr(x, 'class', .resetclass(x, "data.table"))
-  if (!missing(key)){
+  if (key_provided){
     setkeyv(x, key)
   } else {
     setattr(x, "sorted", NULL)

man/as.data.table.Rd

@@ -21,7 +21,7 @@ Functions to check if an object is \code{data.table}, or coerce it if possible.
 \usage{
 as.data.table(x, keep.rownames=FALSE, \dots)
 
-\method{as.data.table}{data.table}(x, keep.rownames, key, \dots)
+\method{as.data.table}{data.table}(x, \dots)
 
 \method{as.data.table}{array}(x, keep.rownames=FALSE, key=NULL, sorted=TRUE,
               value.name="value", na.rm=TRUE, \dots)