Use setequal instead of checking lengths

epiforecasts · Sep 24, 2024 · bfa360c · bfa360c
1 parent ac1e639
commit bfa360c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
   }