diff --git a/DESCRIPTION b/DESCRIPTION
index 19e43c2735f2b9373ac93322c9952ac0c1740a0b..2ba8c52eae8f3d24e6ef7c9ad6a5462ec722620a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
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"))
diff --git a/NEWS.md b/NEWS.md
index 8ab587f3feff8f00a33fbca1788469b10572de03..7113d0793322aa94dfa46a615b0c39a0f07791fc 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,3 @@
-# data.nitrates (development version)
+# data.nitrates 0.1.0
-* Initial CRAN submission.
+* Finalisation de la vignette "Import des données brutes ARS"
diff --git a/dev/flat_import_ars_data.Rmd b/dev/flat_import_ars_data.Rmd
index c502e8fc51e068227314edc50087e89783f5f590..7d5d423ba06797e995c87e8795f7d3bb1bc612c9 100644
--- a/dev/flat_import_ars_data.Rmd
+++ b/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}
diff --git a/vignettes/import-des-donnees-brutes-ars.Rmd b/vignettes/import-des-donnees-brutes-ars.Rmd
index d83e31131e2dbcf6d1a422f22d21bc4f4cd32516..ae5cfcbc2e93f602f2c043fa709dab246d33258a 100644
--- a/vignettes/import-des-donnees-brutes-ars.Rmd
+++ b/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")
```