solve tests (1)

Author: vcameron1

R/coleo_validate.R

@@ -96,7 +96,7 @@ coleo_validate <- function(data, media_path = NULL) {
   #------------------------------------------------------------------------
   # Check that all NAs are NAs
   #------------------------------------------------------------------------
-  is_char_na <- any(apply(data, 2, function(x) sapply(x, function(y) any(!is.list(y) && y == "NA"))), na.rm = TRUE) |> suppressWarnings()
+  is_char_na <- any(apply(data, 2, function(x) sapply(x, function(y) any(!is.list(y)) && any(y == "NA"))), na.rm = TRUE) |> suppressWarnings()
   if(is_char_na) {
     data[data == "NA"] <- NA
     warning("--------------------------------------------------\nV\u00E9rifiez les champs sans valeurs. Ils devraient \u00E2tre NA, mais certains contiennent la valeur de 'NA' en charact\u00e8res.\n\n")