fix changing column names of input tables

randrescastaneda · Feb 26, 2024 · c897e83 · c897e83
1 parent 144231a
commit c897e83
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/joyn-merge.R b/R/joyn-merge.R
@@ -212,12 +212,8 @@ joyn <- function(x,
   #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   start_joyn <- Sys.time()
   # copy objects if data.tables
-  if (any(class(x) == "data.table")) {
-    x <- copy(x)
-  }
-  if (any(class(y) == "data.table")) {
-    y <- copy(y)
-  }
+  x <- copy(x)
+  y <- copy(y)
 
   ## X and Y -----------
   check_xy(x,y)