Skip to content
Snippets Groups Projects
Commit 3910726c authored by ronan.vignard's avatar ronan.vignard
Browse files

Ajout de la création de la séquence dans les fonctions correspondantes

parent 670b44c5
No related branches found
No related tags found
7 merge requests!32Passage en version 1.2.2,!31Mise à jour des vignettes suite à l'intégration du millésime 2024,!30Mise à jour des procédures en lien avec le millésime 2024 + Actualisation du README,!29Correction du lien vers l'image pour le site pkgdown,!28Passage en version 1.2.1,!27Finalisation de l'actualisation de la nouvelle logique métier,!26Création d'une table unique des prélèvements et analyses
Hide whitespace changes
Inline Side-by-side
R/add_code_analyse.R
+ 8
− 1
View file @ 3910726c
# 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 #' Ajouter une variable code_analyse au dataframe
#' #'
...@@ -36,6 +36,13 @@ add_code_analyse <- function(dataframe, version) { ...@@ -36,6 +36,13 @@ add_code_analyse <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL # Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin") 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 # Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq") sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq")
......
R/add_code_prelevement.R
+ 8
− 1
View file @ 3910726c
# 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 #' Ajouter une variable code_prelevement au dataframe
#' #'
...@@ -36,6 +36,13 @@ add_code_prelevement <- function(dataframe, version) { ...@@ -36,6 +36,13 @@ add_code_prelevement <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL # Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin") 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 # Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq") sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq")
......
dev/flat_create_tables_sequences.Rmd
+ 14
− 0
View file @ 3910726c
...@@ -262,6 +262,13 @@ add_code_prelevement <- function(dataframe, version) { ...@@ -262,6 +262,13 @@ add_code_prelevement <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL # Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin") 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 # Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq") sequence_name <- glue::glue("nitrates.nitrate_prelevement_{version}_code_prelevement_seq")
...@@ -330,6 +337,13 @@ add_code_analyse <- function(dataframe, version) { ...@@ -330,6 +337,13 @@ add_code_analyse <- function(dataframe, version) {
# Établir une connexion à la base de données PostgreSQL # Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = "si_eau", user = "admin") 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 # Construire le nom de la séquence
sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq") sequence_name <- glue::glue("nitrates.nitrate_analyse_{version}_code_analyse_seq")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment