From 8d589bd5b2350aa50487b49d99bbf2a1071a558a Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Sun, 21 Nov 2021 15:52:17 +0100
Subject: [PATCH] =?UTF-8?q?bug=20fix=20geom=20dim=20check=20(toujours=20au?=
=?UTF-8?q?=20moins=202=20m=C3=AAme=20si=20points)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/post_data.R | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/R/post_data.R b/R/post_data.R
index 74971a9..6af0c12 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 <-
--
GitLab