From 918baa8a00e4ae2c3dc8b38d385649486e1efe06 Mon Sep 17 00:00:00 2001
From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr>
Date: Tue, 12 Nov 2024 17:34:45 +0100
Subject: [PATCH] Ajout d'un exemple (non fonctionnel)
---
R/add_code_analyse.R | 5 +++++
R/add_code_prelevement.R | 5 +++++
man/add_code_analyse.Rd | 6 ++++++
man/add_code_prelevement.Rd | 6 ++++++
4 files changed, 22 insertions(+)
diff --git a/R/add_code_analyse.R b/R/add_code_analyse.R
index 13edf2f..7fd63b3 100644
--- a/R/add_code_analyse.R
+++ b/R/add_code_analyse.R
@@ -19,6 +19,11 @@
#' @importFrom glue glue
#' @importFrom datalibaba connect_to_db
#' @export
+#' @examples
+#' # Utiliser la fonction add_code_analyse() avec la version souhaitée
+#' nitrate_analyse_ars <- add_code_analyse(
+#' nitrate_analyse_ars, version)
+#'
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")
diff --git a/R/add_code_prelevement.R b/R/add_code_prelevement.R
index 2d75139..c16f077 100644
--- a/R/add_code_prelevement.R
+++ b/R/add_code_prelevement.R
@@ -19,6 +19,11 @@
#' @importFrom glue glue
#' @importFrom datalibaba connect_to_db
#' @export
+#' @examples
+#' # Utiliser la fonction add_code_prelevement() avec la version souhaitée
+#' nitrate_data_analyse_ars <- add_code_prelevement(
+#' nitrate_data_analyse_ars, version)
+#'
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")
diff --git a/man/add_code_analyse.Rd b/man/add_code_analyse.Rd
index 59d62ee..0b08cb9 100644
--- a/man/add_code_analyse.Rd
+++ b/man/add_code_analyse.Rd
@@ -22,3 +22,9 @@ Cette fonction ajoute une nouvelle variable \code{code_analyse}
au dataframe en utilisant une séquence PostgreSQL dynamique. La séquence est
construite en fonction du paramètre \code{version} fourni.
}
+\examples{
+# Utiliser la fonction add_code_analyse() avec la version souhaitée
+nitrate_analyse_ars <- add_code_analyse(
+ nitrate_analyse_ars, version)
+
+}
diff --git a/man/add_code_prelevement.Rd b/man/add_code_prelevement.Rd
index f325b8e..3de9b27 100644
--- a/man/add_code_prelevement.Rd
+++ b/man/add_code_prelevement.Rd
@@ -22,3 +22,9 @@ Cette fonction ajoute une nouvelle variable \code{code_prelevement}
au dataframe en utilisant une séquence PostgreSQL dynamique. La séquence est
construite en fonction du paramètre \code{version} fourni.
}
+\examples{
+# Utiliser la fonction add_code_prelevement() avec la version souhaitée
+nitrate_data_analyse_ars <- add_code_prelevement(
+ nitrate_data_analyse_ars, version)
+
+}
--
GitLab