Intégration des paramètres version, last_year et filepath_data_ars

dev/flat_insert_ars_into_analyse.Rmd

@@ -47,22 +47,26 @@ On remplace les chaînes de caractère par NA dans la variable `ana_param_alpha_
 nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
   dplyr::mutate(
     ana_param_alpha_resultat = dplyr::case_when(
-      ana_param_alpha_resultat %in% c("TRACES", "PRESENCE", "SEUIL", "ILLISIBL", "N.M.", "O", "?", " ") ~ NA_character_,
+      ana_param_alpha_resultat %in% c("TRACES", "PRESENCE", "SEUIL", "ILLISIBL", "N.M.", "O", "?", ",", " ") ~ NA_character_,
       TRUE ~ ana_param_alpha_resultat
     )
   )
 ```
 
-On remplace les points par des virgules dans ana_param_alpha_resultat :
+On remplace des valeurs dans ana_param_alpha_resultat et param_code:
 ```{r replace-dot_ana_param_alpha_resultat, eval=FALSE}
-# Remplacer les valeurs dans la colonne ana_param_alpha_resultat
+# Remplacer les valeurs dans les colonnes ana_param_alpha_resultat et param_code
 nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
-  dplyr::mutate(ana_param_alpha_resultat = 
-                  stringr::str_replace(ana_param_alpha_resultat, "^.$", ","))
+  dplyr::mutate(
+    ana_param_alpha_resultat = stringr::str_replace(ana_param_alpha_resultat, "\\,", "."),
+    param_code = stringr::str_replace(param_code, "NO3", "1340")
+    )
+
 ```
 
+On affecte le code_remarque et la valeur des variables resultat_analyse et  limite_quantification :
 ```{r mutate-from_ana_param_alpha_resultat, eval=FALSE}
-nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
   mutate(
     # Ajout de la colonne code_remarque selon la condition spécifiée
     code_remarque = dplyr::case_when(
@@ -84,15 +88,46 @@ nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
 On sélectionne les champs utiles à la table des analyses :
 ```{r select-variables-ars, eval=FALSE}
 # Sélectionner les variables
-nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
   dplyr::select(code_station = ins_code_national,
                 code_intervenant = geo_dept_ddass_gest_code,
                 date_prelevement = plv_date,
                 nom_parametre = param_nom,
                 date_analyse = anl_date_fin_analyse,
                 resultat_analyse,
-                limite_quantification,
-                code_parametre = param_code)
+                code_parametre = param_code,
+                code_remarque,
+                limite_quantification)
+
+```
+
+On supprime les caractères < et > dans les variables resultat_analyse et  limite_quantification :
+```{r replace-inferior_superior, eval=FALSE}
+# Remplacer les valeurs dans les colonnes resultat_analyse et limite_quantification
+nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
+  dplyr::mutate(resultat_analyse = 
+                  stringr::str_replace(resultat_analyse, ">", ""),
+                limite_quantification = 
+                  stringr::str_replace(limite_quantification, "<", ""))
+
+```
+
+On modifie le type des variables  resultat_analyse et  limite_quantification :
+```{r change-fieldtypes, eval=FALSE}
+# Remplacer les valeurs dans les colonnes resultat_analyse et limite_quantification
+nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
+  dplyr::mutate(resultat_analyse = as.numeric(resultat_analyse),
+                limite_quantification = as.numeric(limite_quantification))
+
+nitrate_data_analyse_ars_test <- nitrate_data_analyse_ars_test |>
+  dplyr::mutate(
+    resultat_analyse = format(resultat_analyse, 
+                              trim = TRUE, 
+                              scientific = FALSE, drop0trailing = TRUE),
+    limite_quantification = format(limite_quantification,
+                                   trim = TRUE, 
+                                   scientific = FALSE, drop0trailing = TRUE)
+  )
 
 ```