diff --git a/dev/flat_insert_data_hubeau_esu.Rmd b/dev/flat_insert_data_hubeau_esu.Rmd new file mode 100644 index 0000000000000000000000000000000000000000..bf80c310f9805a24db3155df35efcef527b05b56 --- /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") +``` +