From 3910726cbb1254ee8f0212dddc80db18ff9f7be0 Mon Sep 17 00:00:00 2001
From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr>
Date: Fri, 7 Feb 2025 11:18:00 +0100
Subject: [PATCH] =?UTF-8?q?Ajout=20de=20la=20cr=C3=A9ation=20de=20la=20s?=
=?UTF-8?q?=C3=A9quence=20dans=20les=20fonctions=20correspondantes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/add_code_analyse.R | 9 ++++++++-
R/add_code_prelevement.R | 9 ++++++++-
dev/flat_create_tables_sequences.Rmd | 14 ++++++++++++++
3 files changed, 30 insertions(+), 2 deletions(-)
diff --git a/R/add_code_analyse.R b/R/add_code_analyse.R
index b60c7f8..f29d8c2 100644
--- a/R/add_code_analyse.R
+++ b/R/add_code_analyse.R
@@ -1,4 +1,4 @@
-# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand
+# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand # nolint: line_length_linter.
#' Ajouter une variable code_analyse au dataframe
#'
@@ -36,6 +36,13 @@ add_code_analyse <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin")
+ # Créer la séquence correspondant à la table
+ create_sequence <- glue::glue("CREATE SEQUENCE IF NOT EXISTS nitrates.nitrate_analyse_{version}_code_analyse_seq
+ INCREMENT 1 START 1 MINVALUE 1 MAXVALUE 2147483647 CACHE 1;")
+
+ # Exécuter le script dans la base de données
+ DBI::dbExecute(connexion, create_sequence)
+
# Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq")
diff --git a/R/add_code_prelevement.R b/R/add_code_prelevement.R
index b8b943f..baf59bf 100644
--- a/R/add_code_prelevement.R
+++ b/R/add_code_prelevement.R
@@ -1,4 +1,4 @@
-# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand
+# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand # nolint: line_length_linter.
#' Ajouter une variable code_prelevement au dataframe
#'
@@ -36,6 +36,13 @@ add_code_prelevement <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin")
+ # Créer la séquence correspondant à la table
+ create_sequence <- glue::glue("CREATE SEQUENCE IF NOT EXISTS nitrates.nitrate_prelevement_{version}_code_prelevement_seq
+ INCREMENT 1 START 1 MINVALUE 1 MAXVALUE 2147483647 CACHE 1;")
+
+ # Exécuter le script dans la base de données
+ DBI::dbExecute(connexion, create_sequence)
+
# Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq")
diff --git a/dev/flat_create_tables_sequences.Rmd b/dev/flat_create_tables_sequences.Rmd
index 86a67e7..92b94a3 100644
--- a/dev/flat_create_tables_sequences.Rmd
+++ b/dev/flat_create_tables_sequences.Rmd
@@ -262,6 +262,13 @@ add_code_prelevement <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin")
+ # Créer la séquence correspondant à la table
+ create_sequence <- glue::glue("CREATE SEQUENCE IF NOT EXISTS nitrates.nitrate_prelevement_{version}_code_prelevement_seq
+ INCREMENT 1 START 1 MINVALUE 1 MAXVALUE 2147483647 CACHE 1;")
+
+ # Exécuter le script dans la base de données
+ DBI::dbExecute(connexion, create_sequence)
+
# Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq")
@@ -330,6 +337,13 @@ add_code_analyse <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin")
+ # Créer la séquence correspondant à la table
+ create_sequence <- glue::glue("CREATE SEQUENCE IF NOT EXISTS nitrates.nitrate_analyse_{version}_code_analyse_seq
+ INCREMENT 1 START 1 MINVALUE 1 MAXVALUE 2147483647 CACHE 1;")
+
+ # Exécuter le script dans la base de données
+ DBI::dbExecute(connexion, create_sequence)
+
# Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq")
--
GitLab