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) }