exclude nhsn non-mandatory reporting data (#143)

Author: sbidari

R/write_viz_target_data.R

@@ -75,7 +75,15 @@ write_viz_target_data <- function(
         disease,
         start_date = start_date,
         end_date = end_date
-      )
+      ) |>
+        # Remove data for reporting dates May 1, 2024 – October 31,
+        # 2024 due to the absence of a reporting mandate. Reporting
+        # rates during this period were much lower,
+        # and data not comparable to other time periods.
+        dplyr::filter(
+          !(.data$date >= lubridate::as_date("2024-05-01") &
+            .data$date <= lubridate::as_date("2024-10-31"))
+        )
     } else {
       NULL
     }