diff --git a/R/post_data.R b/R/post_data.R index 74971a958ec5d108928c5e260281aae2ff999351..6af0c12c56d980175e07ec317bacbc897ed523be 100644 --- a/R/post_data.R +++ b/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 <-