diff --git a/lang/R/R/Interface.R b/lang/R/R/Interface.R index ed7756f3d..07dff20a7 100644 --- 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 = ", ")))