Modification de la fonction import_shapefile()

R/import_shapefile.R

@@ -31,11 +31,11 @@ import_shapefile <- function(filepath, crs) {
   # Formater les noms des colonnes
   colnames(donnees_sf) <- format_colnames(colnames(donnees_sf))
 
-  # Renommer la colonne de géométrie en "the_geom" si elle est nommée "geometry" ou "geom"
-  if ("geometry" %in% colnames(donnees_sf)) {
-    colnames(donnees_sf)[colnames(donnees_sf) == "geometry"] <- "the_geom"
-  } else if ("geom" %in% colnames(donnees_sf)) {
-    colnames(donnees_sf)[colnames(donnees_sf) == "geom"] <- "the_geom"
+  # Renommer la colonne de géométrie en "the_geom" si nécessaire
+  nom_geom <- attr(donnees_sf, "sf_column")  # Trouver la colonne de géométrie
+  if (!is.null(nom_geom) && nom_geom %in% colnames(donnees_sf)) {
+    colnames(donnees_sf)[colnames(donnees_sf) == nom_geom] <- "the_geom"
+    sf::st_geometry(donnees_sf) <- "the_geom"  # Mise à jour du slot sf
   }
 
   # Configurer l'attribut sf sur the_geom