diff --git a/R/fuzzyoverlay.R b/R/fuzzyoverlay.R index dd42933..8434995 100644 --- a/R/fuzzyoverlay.R +++ b/R/fuzzyoverlay.R @@ -42,7 +42,7 @@ fuzzyoverlay = \(formula, data, method = "and"){ \(.x) return(fuzzynum[.x]))) fuzzyindice = apply(xsfn, 1, fuzzyf) fuzzyzone = xs %>% - split(seq(nrow(xs))) %>% + split(seq_len(nrow(xs))) %>% purrr::map2_chr(fuzzyindice, \(.tdf,.indice) .tdf[1,.indice,drop = TRUE]) return(fuzzyzone) diff --git a/R/vector_toolkits.R b/R/vector_toolkits.R index d9b8c10..4930764 100644 --- a/R/vector_toolkits.R +++ b/R/vector_toolkits.R @@ -54,7 +54,7 @@ normalize_vector = \(x,to_left = 0,to_right = 1){ #' generate_subsets = \(set,empty = TRUE,self = TRUE) { n = length(set) - subsets = list(c()) + subsets = list() for (i in seq(set)) { subsets = c(subsets, utils::combn(set, i, simplify = FALSE)) }