add unique check of indices, #100

r-spatial · Sep 21, 2022 · 36cdb1f · 36cdb1f
1 parent 757412c
commit 36cdb1f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/lisa_perm.R b/R/lisa_perm.R
@@ -23,6 +23,7 @@ parallel_setup <- function(iseed) {
 
 spdep_splitIndices <- function(idx, lcl) {
     n <- length(idx)
+    stopifnot(n == length(unique(idx)))
     splits <- parallel::splitIndices(n, lcl)
     res <- lapply(splits, function(i) idx[i])
     res