use data.table:::shallow instead of copy

TysonStanley · Jan 7, 2024 · a73e865 · a73e865
1 parent bd2d056
commit a73e865
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/fill.R b/R/fill.R
@@ -40,7 +40,7 @@ dt_fill <- function(dt_, ..., id = NULL, .direction = c("down", "up", "downup",
 
 dt_fill.default <- function(dt_, ..., id = NULL, .direction = c("down", "up", "downup", "updown"), immutable=TRUE){
 
-  if (isFALSE(is.data.table(dt_))){
+  if (isFALSE(data.table::is.data.table(dt_))){
     dt_ <- data.table::as.data.table(dt_)
   }
 
@@ -56,7 +56,7 @@ dt_fill.default <- function(dt_, ..., id = NULL, .direction = c("down", "up", "d
   by <- substitute(id)
 
   if (immutable)
-    dt_ <- copy(dt_)
+    dt_ <- data.table:::shallow(dt_)
 
   dt_[, paste(dots) := lapply(.SD, fun), by = eval(by), .SDcols = dots][]
 }

diff --git a/R/separate.R b/R/separate.R
@@ -63,7 +63,7 @@ dt_separate.default <- function(dt_, col, into,
 
   # checks and nse
   if (isFALSE(is.data.table(dt_))) dt_ <- data.table::as.data.table(dt_)
-  if (isTRUE(immutable)) dt_ <- data.table::copy(dt_)
+  if (isTRUE(immutable)) dt_ <- data.table:::shallow(dt_)
   if (dev) {
     j <- col
   } else {