From eead47d7537579af96107c67fb836d46c67e42ee Mon Sep 17 00:00:00 2001 From: BERENZ Date: Mon, 29 Apr 2024 18:21:35 +0200 Subject: [PATCH] fixes problems with so close #16 --- R/reclin2_pair_ann.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/R/reclin2_pair_ann.R b/R/reclin2_pair_ann.R index 1e13850..dbcf6fe 100644 --- a/R/reclin2_pair_ann.R +++ b/R/reclin2_pair_ann.R @@ -57,14 +57,14 @@ pair_ann <- function(x, y <- if (deduplication) x else y - block_result <- blocking::blocking(x = x[, on], - y = if (deduplication) NULL else y[, on], - deduplication = deduplication, - ...) - x <- data.table::as.data.table(x) y <- data.table::as.data.table(y) + block_result <- blocking::blocking(x = x[, ..on][[1]], + y = if (deduplication) NULL else y[, ..on][[1]], + deduplication = deduplication, + ...) + a <- x[, ..on] a[, `:=`(".x", .I)] a <- a[unique(block_result$result[,.(".x"=x, block)]), on = ".x"]