fix discretize error

pedersen-fisheries-lab · Feb 24, 2022 · 6907048 · 6907048
1 parent 683c972
commit 6907048
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/discretize-helpers.R b/R/discretize-helpers.R
@@ -85,7 +85,8 @@ sample_points <- function(mode, with, boundaries, boundary, nb_samples, seed){
 
     set.seed(seed) ; the_points <-
       suppressMessages(sf::st_join(with, boundaries,
-                                   suffix = c("", "_duplicate"))) %>%
+                                   suffix = c("_duplicate", ""))) %>%
+      dplyr::select(-dplyr::contains("duplicate")) %>%
       dplyr::filter(!is.na(eval(dplyr::sym(boundary)))) %>%
       dplyr::group_by(.data[[boundary]]) %>%
       dplyr::filter(1:dplyr::n() %in%