fix NA columns in sits_sample_functions

e-sensing · Sep 25, 2024 · d4c2ee3 · d4c2ee3
1 parent 5c441f8
commit d4c2ee3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sits_sample_functions.R b/R/sits_sample_functions.R
@@ -337,7 +337,7 @@ sits_sampling_design <- function(cube,
         warning(.conf("messages", "sits_sampling_design_alloc"),
                 call. = FALSE
         )
-        alloc_options <- alloc_options[alloc_options < equal]
+        alloc_options <- alloc_options[alloc_options < unique(equal)]
     }
     #  Given each allocation for rare classes (e.g, 100 samples)
     #  allocate the rest of the sample size proportionally