bug fix geom dim check (toujours au moins 2 même si points)

R/post_data.R

@@ -232,9 +232,11 @@ poster_data <- function(data = NULL,
     sql_query_crs <- paste0("ALTER TABLE ", schema, ".", table ," ADD CONSTRAINT enforce_srid_geom CHECK (st_srid(geometry) = ", crs, ");")
     DBI::dbExecute(conn = con, sql_query_crs)
     # Ajout contrainte nombre de dimension
-    dim <- max(unique(sf::st_dimension(d, NA_if_empty = TRUE)), na.rm = TRUE)
-    sql_query_dim <- paste0("ALTER TABLE ", schema, ".", table ," ADD CONSTRAINT enforce_dims_geom CHECK (st_ndims(geometry) = ", dim, ");")
-    DBI::dbExecute(conn = con, sql_query_dim)
+    # if(chek_dim) {
+      dim <- max(unique(sf::st_dimension(d, NA_if_empty = TRUE)), 2, na.rm = TRUE)
+      sql_query_dim <- paste0("ALTER TABLE ", schema, ".", table ," ADD CONSTRAINT enforce_dims_geom CHECK (st_ndims(geometry) = ", dim, ");")
+      DBI::dbExecute(conn = con, sql_query_dim)
+      # }
 
     # Ajout index geo
     nom_champ_geo <-