Small fix to prevent NA

tesselle · Mar 1, 2024 · 5846872 · 5846872
1 parent 0d5c634
commit 5846872
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/tabula-internal.R b/R/tabula-internal.R
@@ -1,8 +1,9 @@
 # HELPERS
 
 is_incidence <- function(x) {
+  if (is.logical(x)) return(TRUE)
   x <- as.numeric(x)
-  all(x == 0 | x == 1)
+  all(x == 0 | x == 1, na.rm = TRUE)
 }
 
 #' Colour Ramp