Use anti-join instead of %in%

Yunuuuu · Nov 6, 2023 · cfa371e · cfa371e
1 parent 39853ec
commit cfa371e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dedup.R b/R/dedup.R
@@ -151,7 +151,7 @@ dedup_faers_ascii <- function(data, deleted_cases = NULL) {
         )
     } else {
         out <- unique(
-            data$demo[!caseid %in% deleted_cases][
+            data$demo[!deleted_cases, on = "caseid"][
                 order(-year, -quarter, -fda_dt, i_f_code, -event_dt)
             ],
             by = "primaryid", cols = c(