Tweak checking for bad inputs

sethmcg · Jun 21, 2019 · c85efd3 · c85efd3
1 parent 2e0edf0
commit c85efd3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/bc.mbcn.R b/inst/bc.mbcn.R
@@ -97,7 +97,7 @@ ingest <- function(files){
         fin <- files[v]
         nc <- nc_open(fin)
         x <- ncvar_get(nc, v)
-        if(all(!is.finite(x)) || all(x == 0)){bail()}
+        if(all(!is.finite(x)) || all(x == 0, na.rm=TRUE)){bail()}
         x <- x * scaling[v]
         x <- NAfill(x)
         result <- cbind(result, x)