From 4adae2bbc6963bc60c5344f4ef1de8287d3c0922 Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Mon, 12 Nov 2018 14:14:21 +0100 Subject: [PATCH] Fixed bug in dupe_detect caused by switch from cutoff to cutoff_lower/upper --- 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 209dd78..cf01a0f 100644 --- a/R/dupe_detect.R +++ b/R/dupe_detect.R @@ -42,7 +42,7 @@ dupe_detect <- function(row, grid, cutoff_lower, cutoff_upper = 1, es_pwd) { text <- capture.output(stream_out(df)) write(text[-length(text)], file = paste0(getwd(),'/dupe_objects.json'), append=T) simil[upper.tri(simil)] <- NA - write(unique(rownames(which(simil >= cutoff, arr.ind = TRUE))), + write(unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE))), file = paste0(getwd(),'/remove_ids.txt'), append=T) return(list(df,unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE)))))