Passage en version 0.1.0 : finalisation de la vignette "Import des données brutes ARS"

DESCRIPTION

 Package: data.nitrates
 Title: Collecte Des Données Sur Les Nitrates
-Version: 0.0.0.9000
+Version: 0.1.0
 Authors@R: 
     person("Ronan", "Vignard", , "ronan.vignard@developpement-durable.gouv.fr", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0000-0000-0000"))

NEWS.md

-# data.nitrates (development version)
+# data.nitrates 0.1.0
 
-* Initial CRAN submission.
+* Finalisation de la vignette "Import des données brutes ARS"

dev/flat_import_ars_data.Rmd

@@ -5,15 +5,6 @@ editor_options:
   chunk_output_type: console
 ---
 
-```{r development, include=FALSE}
-library(testthat)
-```
-
-```{r development-load}
-# Load already included functions if relevant
-pkgload::load_all(export_all = FALSE)
-```
-
 ```{r development, include=FALSE}
 library(testthat)
 library(xlsx)
@@ -24,8 +15,8 @@ library(collectr)
 library(dplyr)
 ```
 
-```{r development-1}
-# Load already included functions
+```{r development-load}
+# Load already included functions if relevant
 pkgload::load_all(export_all = FALSE)
 ```
 
@@ -76,14 +67,6 @@ tables_list <- tables_list |>
 
 Les données sont transmies au format XLSX.
 
-```{r import_data_ars_2022, eval=FALSE}
-data_ars_2022 <- collectr::import_xlsx(
-  filepath = "T:\\datalab\\SRNP_DEMA_SI_EAU\\NITRATES\\DONNEES_CLIENT\\SOURCES\\ARS\\2023_06\\Nitrates 2022 pour DREAL EPNT4 2023-05-30.xlsx",
-  sheet = 1,
-  row = 2)
-
-```
-
 ```{r import_data_ars_2023, eval=FALSE}
 data_ars_2023 <- collectr::import_xlsx(
   filepath = "T:\\datalab\\SRNP_DEMA_SI_EAU\\NITRATES\\DONNEES_CLIENT\\SOURCES\\ARS\\2024_06\\Nitrates 2023 pour DREAL EPNT4 2024-05-31.xlsx",
@@ -125,16 +108,35 @@ collectr::modify_column_type(database = "si_eau",
 
 ```
 
+# Archivage de la version précédente de la table
+
+```{r archive_table, eval=FALSE}
+# Archiver la version actuelle de la table avec tous les millésimes 
+collectr::archive_table(database = "si_eau",
+                        schema = "nitrates", 
+                        new_schema = "zz_archives",
+                        table = "nitrate_data_analyse_ars",
+                        role = "admin")
+
+```
+
 # Insertion des données du nouveau millésime en base dans la table globale
 
 ```{r import_and_merge_tables, 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_data_ars_2023", 
+                                  source_table = "nitrate_data_analyse_ars_2023", 
                                   source_schema = "nitrates", 
-                                  target_table = "nitrate_data_analyse_ars_test", 
-                                  target_schema = "nitrates")
+                                  target_table = "nitrate_data_analyse_ars", 
+                                  target_schema = "nitrates",
+                                  role = "admin")
 
+# Actualiser le commentaire sur la table
+datalibaba::commenter_table(comment = "Analyses Nitrates ARS (2007-2023)",
+                            table = "nitrate_data_analyse_ars",
+                            schema = "nitrates",
+                            db = "si_eau",
+                            user = "admin")
 ```
 
 ```{r development-inflate, eval=FALSE}

vignettes/import-des-donnees-brutes-ars.Rmd

@@ -69,14 +69,6 @@ tables_list <- tables_list |>
 Les données sont transmies au format XLSX.
 
 
-```{r import_data_ars_2022, eval = FALSE}
-data_ars_2022 <- collectr::import_xlsx(
-  filepath = "T:\\datalab\\SRNP_DEMA_SI_EAU\\NITRATES\\DONNEES_CLIENT\\SOURCES\\ARS\\2023_06\\Nitrates 2022 pour DREAL EPNT4 2023-05-30.xlsx",
-  sheet = 1,
-  row = 2)
-
-```
-
 ```{r import_data_ars_2023, eval = FALSE}
 data_ars_2023 <- collectr::import_xlsx(
   filepath = "T:\\datalab\\SRNP_DEMA_SI_EAU\\NITRATES\\DONNEES_CLIENT\\SOURCES\\ARS\\2024_06\\Nitrates 2023 pour DREAL EPNT4 2024-05-31.xlsx",
@@ -118,15 +110,34 @@ collectr::modify_column_type(database = "si_eau",
 
 ```
 
+# Archivage de la version précédente de la table
+
+```{r archive_table, eval = FALSE}
+# Archiver la version actuelle de la table avec tous les millésimes 
+collectr::archive_table(database = "si_eau",
+                        schema = "nitrates", 
+                        new_schema = "zz_archives",
+                        table = "nitrate_data_analyse_ars",
+                        role = "admin")
+
+```
+
 # Insertion des données du nouveau millésime en base dans la table globale
 
 ```{r import_and_merge_tables, 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_data_ars_2023", 
+                                  source_table = "nitrate_data_analyse_ars_2023", 
                                   source_schema = "nitrates", 
-                                  target_table = "nitrate_data_analyse_ars_test", 
-                                  target_schema = "nitrates")
+                                  target_table = "nitrate_data_analyse_ars", 
+                                  target_schema = "nitrates",
+                                  role = "admin")
 
+# Actualiser le commentaire sur la table
+datalibaba::commenter_table(comment = "Analyses Nitrates ARS (2007-2023)",
+                            table = "nitrate_data_analyse_ars",
+                            schema = "nitrates",
+                            db = "si_eau",
+                            user = "admin")
 ```