Address dt lock issue in data.table < 1.9.8 Rdatatable/data.table#1341

gnguy · Jan 30, 2017 · 5dba65e · 5dba65e
1 parent f2b6bd7
commit 5dba65e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/assert_ids.R b/R/assert_ids.R
@@ -96,7 +96,8 @@ assert_ids <- function(data, id_vars, assert_combos=TRUE, assert_dups=TRUE, ids_
   }
   if(assert_dups == TRUE & nrow(data_ids) != nrow(data)) {
     data <- data.table(data)
-    duplicates <- data[duplicated(data[, .SD, .SDcols=id_varnames]), .SD, .SDcols=id_varnames]
+    duplicates <- data[duplicated(data[, .SD, .SDcols=id_varnames])]
+    duplicates <- duplicates[, .SD, .SDcols=id_varnames] # Subset columns separately to avoid dt lock issue in <1.9.8 https://github.com/Rdatatable/data.table/issues/1341
     nrow_duplicates <- nrow(duplicates)
 
     ## Get the total number of duplicates in each id combination.