Allow NA values in logical fields when validating tabular data (#731)

airr-community · Apr 8, 2024 · 66eb0bb · 66eb0bb
1 parent 50c3ba2
commit 66eb0bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lang/R/R/Interface.R b/lang/R/R/Interface.R
@@ -531,7 +531,7 @@ validate_tabular <- function(data, schema) {
     logical_fields <- intersect(colnames(data), logical_fields)
     if (length(logical_fields) > 0 ) {
         for (log_field in logical_fields) {
-            not_logical <- data[[log_field]] %in% c(TRUE, FALSE) == FALSE
+            not_logical <- data[[log_field]] %in% c(TRUE, FALSE, NA) == FALSE
             if (any(not_logical)) {
                 warning(paste("Warning:",log_field,"is not logical for row(s):",
                               paste(which(not_logical), collapse = ", ")))