From c152f45409ba262d519dfa15e6a5df33a0e7df8d Mon Sep 17 00:00:00 2001 From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr> Date: Fri, 7 Feb 2025 16:49:13 +0100 Subject: [PATCH] =?UTF-8?q?Cr=C3=A9ation=20de=20la=20proc=C3=A9dure=20pour?= =?UTF-8?q?=20la=20cr=C3=A9ation=20d'un=20dataframe=20unique=20pr=C3=A9l?= =?UTF-8?q?=C3=A8vements=20+=20analyse=20pour=20les=20donn=C3=A9es=20Hub'e?= =?UTF-8?q?au=20ESu?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- dev/flat_insert_data_hubeau_esu.Rmd | 52 +++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 dev/flat_insert_data_hubeau_esu.Rmd diff --git a/dev/flat_insert_data_hubeau_esu.Rmd b/dev/flat_insert_data_hubeau_esu.Rmd new file mode 100644 index 0000000..bf80c31 --- /dev/null +++ b/dev/flat_insert_data_hubeau_esu.Rmd @@ -0,0 +1,52 @@ +--- +title: "Insertion des pr\u00e9l\u00e8vements et analyses Hubeau ESU" +output: html_document +editor_options: + chunk_output_type: console +--- + +```{r development, include=FALSE} +library(testthat) +library(yaml) +library(datalibaba) +library(dplyr) +library(stringr) +library(glue) +library(DBI) +library(RPostgres) +``` + +```{r development-load} +# Load already included functions if relevant +pkgload::load_all(export_all = FALSE) +``` + +```{r config, eval=FALSE} +# Lire le fichier de configuration +config <- yaml::read_yaml("config.yml") + +# Accéder à la valeur pour version +version <- config$version +``` + +# Consolidation et insertion des données Hub'eau ESU dans la table des prélèvements + +## Chargement des prélèvements Hub'eau ESU + +La table des données brutes Nitrates Hub'eau ESU est chargée : +```{r load-nitrate_qualite_rivieres_analyse_pc, eval=FALSE} +# Charger la table qualite_nappes_eau_souterraine.nitrate_qualite_rivieres_analyse_pc +nitrate_qualite_rivieres_prelevements <- datalibaba::importer_data( + table = "nitrate_qualite_rivieres_analyse_pc", + schema = "qualite_cours_d_eau", + db = "si_eau", + user = "admin" +) +``` + +```{r development-inflate, eval=FALSE} +# Run but keep eval=FALSE to avoid infinite loop +# Execute in the console directly +fusen::inflate(flat_file = "dev/flat_insert_data_hubeau_esu.Rmd", vignette_name = "Insertion des pr\u00e9l\u00e8vements et analyses Hubeau ESU") +``` + -- GitLab