Ajout de la variable nature_eau

dev/flat_insert_hubeau_eso_into_prelevement.Rmd

@@ -47,13 +47,14 @@ nitrate_qualite_nappes_prelevements <- nitrate_qualite_nappes_prelevements |>
 
 ## Consolidation des prélèvements Hub'eau ESO
 
-On ajoute les variables `source` et `code_support` :
+On ajoute les variables `source`, `code_support` et `nature_eau` :
 ```{r add-source_code_support_hubeau_eso, eval=FALSE}
-# Ajouter les variables source et code_support
+# Ajouter les variables source, code_support et nature_eau
 nitrate_qualite_nappes_prelevements <- nitrate_qualite_nappes_prelevements |>
   dplyr::mutate(
     source = "ADES",
-    code_support = 3)
+    code_support = 3,
+    nature_eau = "ESO")
 ```
 
 On sélectionne les champs utiles à la table des prélèvements :
@@ -64,7 +65,8 @@ nitrate_qualite_nappes_prelevements <- nitrate_qualite_nappes_prelevements |>
                 code_reseau = codes_reseau,
                 code_station = bss_id,
                 date_prelevement = date_debut_prelevement,
-                code_support)
+                code_support,
+                nature_eau)
 ```
 
 On modifie le type de la variable `code_support` de character en integer :
@@ -87,7 +89,7 @@ On ajoute un identifiant unique s'appuyant sur une séquence stockée en base :
 ```{r add_code_prelevement_hubeau_eso, eval=FALSE}
 # Utiliser la fonction add_code_prelevement avec la version souhaitée
 nitrate_qualite_nappes_prelevements <- add_code_prelevement(
-  nitrate_qualite_nappes_prelevements, "v0_15")
+  nitrate_qualite_nappes_prelevements, "v0_16")
 
 # Afficher le dataframe pour vérifier les modifications
 print(nitrate_qualite_nappes_prelevements)
@@ -98,7 +100,7 @@ On charge les données consolidées dans un table dédiée :
 ```{r insert-into_nitrate_prelevement_hubeau_eso, eval=FALSE}
 # Charger les données dans une nouvelle table en base
 datalibaba::poster_data(data = nitrate_qualite_nappes_prelevements, 
-                        table = "nitrate_prelevement_hubeau_eso_v0_15", 
+                        table = "nitrate_prelevement_hubeau_eso_v0_16", 
                         schema = "nitrates", 
                         db = "si_eau",
                         overwrite = TRUE,
@@ -112,9 +114,9 @@ On insère enfin les enregistrements de cette table dans la table globale :
 ```{r import_and_merge_tables_hubeau_eso, eval=FALSE}
 # Insérer les prélèvements Hub'eau ESO vers la table complète
 collectr::import_and_merge_tables(database = "si_eau",
-                                  source_table = "nitrate_prelevement_hubeau_eso_v0_15", 
+                                  source_table = "nitrate_prelevement_hubeau_eso_v0_16", 
                                   source_schema = "nitrates", 
-                                  target_table = "nitrate_prelevement_v0_15", 
+                                  target_table = "nitrate_prelevement_v0_16", 
                                   target_schema = "nitrates",
                                   role = "admin")
 

dev/flat_insert_hubeau_esu_into_prelevement.Rmd

@@ -47,11 +47,14 @@ nitrate_qualite_rivieres_prelevements <- nitrate_qualite_rivieres_prelevements |
     )
 ```
 
-On ajoute la variable `source` :
+On ajoute les variables `source` et `nature_eau` :
 ```{r add-source_code_support_hubeau_esu, eval=FALSE}
-# Ajouter les variables source et code_support
+# Ajouter les variables source et nature_eau
 nitrate_qualite_rivieres_prelevements <- nitrate_qualite_rivieres_prelevements |>
-  dplyr::mutate(source = "Na\u00efades")
+  dplyr::mutate(
+    source = "Na\u00efades",
+    nature_eau = "ESO")
+
 ```
 
 On sélectionne les champs utiles à la table des prélèvements :
@@ -64,6 +67,7 @@ nitrate_qualite_rivieres_prelevements <- nitrate_qualite_rivieres_prelevements |
                 date_prelevement,
                 heure_prelevement,
                 code_support,
+                nature_eau,
                 commentaire = commentaires_analyse)
 ```
 
@@ -87,7 +91,7 @@ On ajoute un identifiant unique s'appuyant sur une séquence stockée en base :
 ```{r add_code_prelevement_hubeau_esu, eval=FALSE}
 # Utiliser la fonction add_code_prelevement avec la version souhaitée
 nitrate_qualite_rivieres_prelevements <- add_code_prelevement(
-  nitrate_qualite_rivieres_prelevements, "v0_15")
+  nitrate_qualite_rivieres_prelevements, "v0_16")
 
 # Afficher le dataframe pour vérifier les modifications
 print(nitrate_qualite_rivieres_prelevements)
@@ -98,7 +102,7 @@ On charge les données consolidées dans une table dédiée :
 ```{r insert-into_nitrate_prelevement_hubeau_esu, eval=FALSE}
 # Charger les données dans une nouvelle table en base
 datalibaba::poster_data(data = nitrate_qualite_rivieres_prelevements, 
-                        table = "nitrate_prelevement_hubeau_esu_v0_15", 
+                        table = "nitrate_prelevement_hubeau_esu_v0_16", 
                         schema = "nitrates", 
                         db = "si_eau",
                         overwrite = TRUE,
@@ -112,9 +116,9 @@ On insère enfin les enregistrements de cette table dans la table globale :
 ```{r import_and_merge_tables_hubeau_esu, eval=FALSE}
 # Insérer les données de la table du dernier millésime vers la table complète
 collectr::import_and_merge_tables(database = "si_eau",
-                                  source_table = "nitrate_prelevement_hubeau_esu_v0_15", 
+                                  source_table = "nitrate_prelevement_hubeau_esu_v0_16", 
                                   source_schema = "nitrates", 
-                                  target_table = "nitrate_prelevement_v0_15", 
+                                  target_table = "nitrate_prelevement_v0_16", 
                                   target_schema = "nitrates",
                                   role = "admin")