From ea8cfb071fbaad359c6993a5395aaecf9a6e497b Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Thu, 3 Jan 2019 23:35:28 +0100 Subject: [PATCH] dupe_detect: updated _delete var to be 2 when delete is true --- R/dupe_detect.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/dupe_detect.R b/R/dupe_detect.R index 63e4e9e..9aad6e0 100644 --- a/R/dupe_detect.R +++ b/R/dupe_detect.R @@ -49,7 +49,7 @@ dupe_detect <- function(row, grid, cutoff_lower, cutoff_upper = 1, es_pwd, es_su # file = paste0(getwd(),'/remove_ids.txt'), # append=T) dupe_delete <- data.frame(id=unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE))), - dupe_delete = rep(1,length(unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE)))))) + dupe_delete = rep(2,length(unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE)))))) bulk <- c(apply(df, 1, bulk_writer, varname='duplicates', type = 'set', ver = ver), apply(dupe_delete, 1, bulk_writer, varname='_delete', type = 'set', ver = ver)) if (length(bulk) > 0) {