Small fix to prevent NA

nfrerebeau · nfrerebeau · commit 584687245a5e · 2024-03-01T18:26:52.000+01:00
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
