Prevent an error

llrs · Apr 29, 2024 · af3ceaa · af3ceaa
1 parent 736e1cd
commit af3ceaa
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: experDesign
 Title: Design Experiments for Batches
-Version: 0.3.0.9000
+Version: 0.3.0.9001
 Authors@R: c(
     person("Lluís", "Revilla Sancho", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9747-2570")),

diff --git a/R/indexing.R b/R/indexing.R
@@ -73,6 +73,11 @@ create_index4index <- function(index, size_subset, n, name) {
       if (length(setdiff(pp, which(dups_out)))) {
         pp <- setdiff(pp, which(dups_out))
       }
+      # Somehow sometimes there is an error with sample!
+      if (is.null(pp)) {
+        next
+      }
+
       i_index <- sample(pp, 1)
       index_f <- c(index_f, i_index)