From aaaca39fbf18a0f19572a1ebd2e7fb7d545086c5 Mon Sep 17 00:00:00 2001
From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr>
Date: Thu, 8 Aug 2024 09:08:37 +0000
Subject: [PATCH] =?UTF-8?q?Passage=20en=20version=200.1.0=20:=20finalisati?=
=?UTF-8?q?on=20de=20la=20vignette=20"Import=20des=20donn=C3=A9es=20brutes?=
=?UTF-8?q?=20ARS"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
DESCRIPTION | 2 +-
NEWS.md | 4 +-
dev/flat_import_ars_data.Rmd | 46 +++++++++++----------
vignettes/import-des-donnees-brutes-ars.Rmd | 33 ++++++++++-----
4 files changed, 49 insertions(+), 36 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 19e43c2..2ba8c52 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 8ab587f..7113d07 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 c502e8f..7d5d423 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 d83e311..ae5cfcb 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")
```
--
GitLab