From fc931c7846d488bb9f6854bb1638431e17c7c3d3 Mon Sep 17 00:00:00 2001 From: yun Date: Fri, 27 Oct 2023 15:49:35 +0800 Subject: [PATCH] remove redundant code --- R/dedup.R | 1 - 1 file changed, 1 deletion(-) diff --git a/R/dedup.R b/R/dedup.R index 0b5a749..df0f0f8 100644 --- a/R/dedup.R +++ b/R/dedup.R @@ -35,7 +35,6 @@ methods::setMethod("faers_dedup", "FAERSascii", function(object, remove_deleted_ deleted_cases = deleted_cases ) ) - deduplicated_data <- deduplicated_data[, c("year", "quarter", "primaryid")] object@data <- lapply(object@data, function(x) { x[deduplicated_data, on = c("year", "quarter", "primaryid")] })