diff --git a/R/create_nitrate_analyse_table.R b/R/create_nitrate_analyse_table.R index 8fe0038177c208f26654f69c3c69ac1ad16eee7c..38edd7cc3a712d2b3b221ebbe98d11b91861c29e 100644 --- a/R/create_nitrate_analyse_table.R +++ b/R/create_nitrate_analyse_table.R @@ -1,4 +1,4 @@ -# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand +# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand # nolint: line_length_linter. #' Créer une table d'analyses de nitrates #' diff --git a/R/create_nitrate_prelevement_table.R b/R/create_nitrate_prelevement_table.R index 6076073d757d8d3ab7b44cc4c1faf25d5099f7c5..0885610015c0dbe011fde6122511f065170cbe2a 100644 --- a/R/create_nitrate_prelevement_table.R +++ b/R/create_nitrate_prelevement_table.R @@ -1,4 +1,4 @@ -# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand +# WARNING - Generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand # nolint: line_length_linter. #' Créer une table de prélèvements de nitrates #' diff --git a/vignettes/creation-des-tables-et-des-sequences.Rmd b/vignettes/creation-des-tables-et-des-sequences.Rmd index dd7ee8187db165a03e265f1f268a4e97c97b339a..6b01aebc45d7918e3d182fd14649d6196e936a1c 100644 --- a/vignettes/creation-des-tables-et-des-sequences.Rmd +++ b/vignettes/creation-des-tables-et-des-sequences.Rmd @@ -2,7 +2,7 @@ title: "Création des tables et des séquences" output: rmarkdown::html_vignette vignette: > - %\VignetteIndexEntry{creation-des-tables-et-des-sequences} + %\VignetteIndexEntry{Création des tables et des séquences} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- @@ -14,13 +14,18 @@ knitr::opts_chunk$set( ) ``` -```{r setup} +```{r} library(data.nitrates) ``` <!-- WARNING - This vignette is generated by {fusen} from dev/flat_create_tables_sequences.Rmd: do not edit by hand --> -```{r config, eval = FALSE} + + + +```{r config} +#| eval: no + # Lire le fichier de configuration config <- yaml::read_yaml("config.yml") @@ -29,42 +34,47 @@ version <- config$version last_year <- config$last_year ``` + # Présentation Cette page contient les fonctions permettant : - de créer en base les tables `nitrates.nitrate_prelevement_version` et `nitrates.nitrate_analyse_version`, - d'incrémenter les séquences correspondantes au moment de l'import des données. - # Création des tables en base ## Création de la table des prélèvements et ajout des commentaires Création de la table `nitrates.nitrate_prelevement_version` : +```{r create_nitrate_prelevement_table_version} +#| eval: no -```{r create_nitrate_prelevement_table_version, eval = FALSE} # Création du script SQL avec la version choisie sql <- create_nitrate_prelevement_table(version, last_year) ``` + ## Création de la table des analyses et ajout des commentaires Création de la table `nitrates.nitrate_analyse_version` : +```{r create_nitrate_analyse_table} +#| eval: no -```{r create_nitrate_analyse_table, eval = FALSE} # Création du script SQL avec la version choisie sql <- create_nitrate_analyse_table(version, last_year) ``` + # Incrémentation des séquences ## Incrémentation de la table des prélèvements La fonction est utilisée au moment d'importer les données des différentes sources dans la table `nitrates.nitrate_prelevement_version` : +```{r example_add_code_prelevement} +#| eval: no -```{r example_add_code_prelevement, eval = FALSE} # Crée un dataframe fictif avec les colonnes nécessaires pour l'exemple dataframe <- data.frame( id_prelevement = 1:5, @@ -79,13 +89,15 @@ dataframe <- add_code_prelevement( ``` + ## Incrémentation de la table des analyses La fonction est utilisée au moment d'importer les données des différentes sources dans la table `nitrates.nitrate_analyse_version` : On ajoute un identifiant unique s'appuyant sur une séquence stockée en base : +```{r example_add_code_analyse} +#| eval: no -```{r example_add_code_analyse, eval = FALSE} # Crée un dataframe fictif avec les colonnes nécessaires pour l'exemple dataframe <- data.frame( id_prelevement = 1:5, @@ -100,3 +112,6 @@ dataframe <- add_code_analyse( ``` + + +