Use setequal instead of checking lengths

epiforecasts · Sep 20, 2024 · 6f81942 · 6f81942
1 parent 778b3eb
commit 6f81942
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)
   }