From 6f81942a010b35a5e0b364620ffa33477cb7a238 Mon Sep 17 00:00:00 2001
From: jamesaazam <james.azam@lshtm.ac.uk>
Date: Fri, 20 Sep 2024 18:45:16 +0100
Subject: [PATCH] Use setequal instead of checking lengths

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

diff --git a/R/checks.R b/R/checks.R
index 83f86bbca..968eb8f16 100644
--- a/R/checks.R
+++ b/R/checks.R
@@ -173,7 +173,7 @@ test_data_complete <- function(data) {
     max(data$date, na.rm = TRUE),
     by = "1 day"
   )
-  if (length(complete_dates) > length(unique(data$date))) {
+  if (!setequal(complete_dates, unique(data$date))) {
     return(FALSE)
   }