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

dev/flat_insert_ars_into_prelevement.Rmd

@@ -57,8 +57,7 @@ On sélectionne les champs utiles à la table des prélèvements :
 ```{r select-variables-ars, eval=FALSE}
 # Sélectionner les variables
 nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
-  dplyr::select(code_prelevement_ars = plv_code,
-                code_intervenant = geo_dept_ddass_gest_code,
+  dplyr::select(code_intervenant = geo_dept_ddass_gest_code,
                 source,
                 code_station = ins_code_national,
                 date_prelevement = plv_date,
@@ -77,7 +76,7 @@ nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
   dplyr::distinct(code_station, date_prelevement, .keep_all = TRUE)
 ```
 
-```{r function-add_code_prelevement} 
+```{r function-add_code_prelevement, eval=FALSE} 
 #' Ajouter une variable code_prelevement au dataframe
 #'
 #' @description Cette fonction ajoute une nouvelle variable `code_prelevement` 
@@ -127,7 +126,7 @@ add_code_prelevement <- function(dataframe, version) {
 ```
 
 On ajoute un identifiant unique s'appuyant sur une séquence stockée en base :
-```{r example-add_code_prelevement_ars, eval=FALSE}
+```{r add_code_prelevement_ars, eval=FALSE}
 # Utiliser la fonction add_code_prelevement_ars avec la version souhaitée
 nitrate_data_analyse_ars <- add_code_prelevement(
   nitrate_data_analyse_ars, "v0_15")