fixed potential infinite loop for categories argument with uneven gro…

…up sizes
m-Py · Jun 22, 2023 · 435958a · 435958a
1 parent 1475bbc
commit 435958a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/sample-by-category.R b/R/sample-by-category.R
@@ -132,6 +132,9 @@ gcd_set <- function(x) {
     if (all(x == x[1])) {
       gdc_found <- TRUE
     }
+    if (any(x == 1)) { # cannot find a greated common denominator!
+      return(1)
+    }
   }
   x[1]
 }