From d8ac0d2e538ad5967b9da3cd0c48f7a3833c56ac Mon Sep 17 00:00:00 2001
From: Mohamed Yusuf <mohamedayusuf87@gmail.com>
Date: Wed, 18 Sep 2024 11:38:07 +0300
Subject: [PATCH] Fix bug in prep_new_detections_table

---
 R/prep_detections.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/prep_detections.R b/R/prep_detections.R
index 0102395..7ed6ca0 100644
--- a/R/prep_detections.R
+++ b/R/prep_detections.R
@@ -154,7 +154,7 @@ prep_new_detections_table <- function(polis_df_old,
         ) |>
         dplyr::filter(
             year > lubridate::year(Sys.Date()) - 3 &
-                !EPID %in% unique(new_epids),
+                !EPID %in% unique(polis_df_old$EPID),
             stringr::str_detect(VirusTypeName, "^WILD|^VDPV|^cVDPV"),
             SurveillanceTypeName %in% c("AFP", "Environmental")
         ) |>