correct check_columns_present()

epiforecasts · Nov 14, 2023 · ebe3869 · ebe3869
1 parent 21d887a
commit ebe3869
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/check-input-helpers.R b/R/check-input-helpers.R
@@ -304,7 +304,7 @@ check_columns_present <- function(data, columns) {
     }
   }
   missing <- unlist(missing)
-  if (length(missing > 1)) {
+  if (length(missing) > 1) {
     msg <- paste0(
       "Columns '", paste(missing, collapse = "', '"), "' not found in data"
     )