Création des tables et des séquences

library(data.nitrates)

# Lire le fichier de configuration
config <- yaml::read_yaml("config.yml")

# Accéder aux valeurs pour version et last_year
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 :

# 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 :

# 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 :

# Crée un dataframe fictif avec les colonnes nécessaires pour l'exemple
dataframe <- data.frame(
  id_prelevement = 1:5,
  autre_colonne = sample(letters, 5)
)
# Définir une version pour l'exemple
version <- "v1"

# Utiliser la fonction add_code_prelevement() avec la version souhaitée
dataframe <- add_code_prelevement(
  dataframe, version)

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 :

# Crée un dataframe fictif avec les colonnes nécessaires pour l'exemple
dataframe <- data.frame(
  id_prelevement = 1:5,
  autre_colonne = sample(letters, 5)
)
# Définir une version pour l'exemple
version <- "v1"

# Utiliser la fonction add_code_analyse() avec la version souhaitée
dataframe <- add_code_analyse(
  dataframe, version)