Merge pull request #48 from inbo/47-bug-error-in-stopifnot-cant-trans…

…form-a-data-frame-with-duplicate-names 47 bug error in stopifnot cant transform a data frame with duplicate names
inbo · Jul 29, 2024 · ad78d6e · ad78d6e
2 parents 4f2c0c1 + c03ba84
commit ad78d6e
Show file tree

Hide file tree

Showing 27 changed files with 35 additions and 28 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: fistools
 Title: Tools & data used for wildlife management & invasive species in Flanders
-Version: 1.1.0
+Version: 1.1.1
 Authors@R: c(
     person(given = "Sander", middle = "", family = "Devisscher", "sander.devisscher@inbo.be", 
       role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2015-5731")),

diff --git a/R/calculate_polygon_centroid.R b/R/calculate_polygon_centroid.R
@@ -64,6 +64,13 @@ calculate_polygon_centroid <- function(sf_df, id){
   }
 
   # prepare data ####
+  ## Check if col name "id" is already present in the sf object ####
+  if("id" %in% names(sf_df) & id != "id"){
+    warning("The column name 'id' is already present in the sf object >> this column will be overwritten by the specified id")
+    sf_df <- sf_df %>%
+      dplyr::select(-id)
+  }
+
   ## Rename the id column to "id" ####
   id_col <- id
   names(sf_df)[names(sf_df) == id_col] <- "id"

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CODE_OF_CONDUCT.html b/docs/CODE_OF_CONDUCT.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -2,4 +2,4 @@ pandoc: 2.9.2.1
 pkgdown: 2.1.0
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-07-29T10:22Z
+last_built: 2024-07-29T13:57Z
diff --git a/docs/reference/CRS_extracter.html b/docs/reference/CRS_extracter.html
diff --git a/docs/reference/UUID_List.html b/docs/reference/UUID_List.html
diff --git a/docs/reference/apply_grtsdb.html b/docs/reference/apply_grtsdb.html
diff --git a/docs/reference/boswachterijen.html b/docs/reference/boswachterijen.html
diff --git a/docs/reference/calculate_polygon_centroid.html b/docs/reference/calculate_polygon_centroid.html
diff --git a/docs/reference/check.html b/docs/reference/check.html
diff --git a/docs/reference/cleanup_sqlite.html b/docs/reference/cleanup_sqlite.html
diff --git a/docs/reference/col_content_compare.html b/docs/reference/col_content_compare.html
diff --git a/docs/reference/colcompare.html b/docs/reference/colcompare.html
diff --git a/docs/reference/collect_osm_features.html b/docs/reference/collect_osm_features.html
diff --git a/docs/reference/download_dep_media.html b/docs/reference/download_dep_media.html
diff --git a/docs/reference/download_gdrive_if_missing.html b/docs/reference/download_gdrive_if_missing.html
diff --git a/docs/reference/download_seq_media.html b/docs/reference/download_seq_media.html
diff --git a/docs/reference/drg_example.html b/docs/reference/drg_example.html
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/install_sp.html b/docs/reference/install_sp.html
diff --git a/docs/reference/label_converter.html b/docs/reference/label_converter.html
diff --git a/docs/reference/lib_crs.html b/docs/reference/lib_crs.html