Merge branch 'master' of https://github.com/mikejohnson51/zonal

mikejohnson51 · May 23, 2024 · cb507de · cb507de
2 parents f63b2c2 + b80eac8
commit cb507de
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/custom_function.R b/R/custom_function.R
@@ -52,11 +52,23 @@ circular_mean <- function (value, coverage_fraction) {
 
 distribution = function(value, coverage_fraction, breaks = 10, constrain = FALSE){
 
+  if (length(value) <= 0 | all(is.nan(value))) {
+    return("[]")
+  }
+
   x1 = value*coverage_fraction
   x1 = x1[!is.na(x1)]
 
   if(constrain | length(breaks) > 1){
+
+    breaks_tmp = c(breaks[1],breaks[2])
+
     breaks = breaks[!breaks > max(x1, na.rm = TRUE)]
+
+    if (length(breaks) == 1){
+      breaks = breaks_tmp
+      }
+
   }
 
   tmp = as.data.frame(table(cut(x1, breaks = breaks)))