Added "distinct(Divide, .keep_all = TRUE)" to corr_divides_centroids

lynker-spatial · Oct 22, 2024 · 24d84dc · 24d84dc
1 parent afa2b45
commit 24d84dc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ModelCorrMap.R b/R/ModelCorrMap.R
@@ -55,7 +55,8 @@ ModelCorrMap <- function(x, y = ModelScatterPlot, z = NewDivides){
 
   #Get centroids of divides
   corr_divides_centroids <- st_centroid(corr_divides) %>% 
-    st_as_sf()
+    st_as_sf() %>% 
+    distinct(Divide, .keep_all = TRUE)
 
   #assign("corr_divides_centroids", corr_divides_centroids, envir = .GlobalEnv)