fix when no occurrence in a given plane

EDJNet · Nov 5, 2024 · 41e151c · 41e151c
1 parent ca1490a
commit 41e151c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/rv_create_risk_vector.R b/R/rv_create_risk_vector.R
@@ -89,6 +89,10 @@ rv_create_risk_vector <- function(risk_ratio,
     risk_places_v <- rep(as.character(NA), total_places)
 
     for (i in (unique(risk_ratio[[1]])[is.na(unique(risk_ratio[[1]])) == FALSE])) {
+      if (sum(is.na(risk_places_v))==0) {
+        break
+      }
+
       selector <- sample(
         x = seq_along(risk_places_v[is.na(risk_places_v) == TRUE]),
         replace = FALSE,