diff --git a/dev/flat_insert_data.Rmd b/dev/flat_insert_data.Rmd index 734864f30f419d75c207706f4bdb6cdcd3634142..7b45277e0b2a1a9ba9402fa9ac3987a8b4c89018 100644 --- a/dev/flat_insert_data.Rmd +++ b/dev/flat_insert_data.Rmd @@ -305,10 +305,10 @@ nitrate_prelevement_analyse_hubeau_esu <- nitrate_prelevement_analyse_hubeau_esu ``` On sélectionne les champs utiles à la table des prélèvements et analyses : -```{r select_variables_hubeau_eso, eval=FALSE} +```{r select_variables_hubeau_esu, eval=FALSE} # Sélectionner les variables nitrate_prelevement_analyse_hubeau_esu <- - nitrate_prelevement_analyse_hubeau_esu|> + nitrate_prelevement_analyse_hubeau_esu |> dplyr::select(code_intervenant = code_laboratoire, source, code_reseau, @@ -340,6 +340,32 @@ nitrate_prelevement_analyse <- nitrate_prelevement_analyse_hubeau_esu) ``` +## Ajout d'un identifiant unique + +```{r add_unique_id, eval=FALSE} +# Créer un identifiant unique +nitrate_prelevement_analyse <- nitrate_prelevement_analyse |> + dplyr::mutate(code_prelevement_analyse = dplyr::row_number()) |> + dplyr::select(code_prelevement_analyse, + code_intervenant, + source, + code_reseau, + code_station, + date_prelevement, + heure_prelevement, + code_support, + nature_eau, + id_usage, + id_prelevement_motif, + date_analyse, + resultat_analyse, + code_parametre, + code_fraction_analysee, + code_remarque, + limite_detection, + limite_quantification) +``` + ## Insertion du dataframe en base On insère enfin le dataframe consolidé dans la table globale et versionnée @@ -351,22 +377,10 @@ datalibaba::poster_data(data = nitrate_prelevement_analyse, schema = "nitrates", db = "si_eau", overwrite = TRUE, - #pk = "code_prelevement_analyse", + pk = "code_prelevement_analyse", user = "admin") ``` -## Renommage de l'identifiant - -```{r rename_id_row__, eval=FALSE} -collectr::rename_field(host = Sys.getenv("server"), - database = "si_eau", - schema = "nitrates", - table = glue::glue("nitrate_prelevement_analyse_", version), - old_field = "id_row__", - new_field = "code_prelevement_analyse", - role = "admin") -``` - ## Ajout des commentaires ```{r add_comments, eval=FALSE}