Lots de données Hydrographie

Chargement des librairies

library(datalibaba)
library(dplyr)
library(glue)
library(sf)
library(yaml)

Chargement des variables

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

# Accéder à la valeur pour fichier_gpkg
fichier_gpkg <- config$fichier_gpkg
# Récupérer les variables liées à la base de données
database <- config$database
schema_name <- config$schema_name
primary_key <- config$primary_key
role <- config$role

Bassins versants topographiques

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# Paramétrer le nom de la couche
table_name <- "bassin_versant_topographique"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(bassin_versant_topographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = bassin_versant_topographique, 
                        table = "n_bdt_bassin_versant_topographique_s_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_bassin_versant_topographique_s_r52
    IS 'Bassin versant topographique. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_bassin_versant_topographique.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_bassin_versant_topographique, 
               table = "n_bdt_bassin_versant_topographique_s_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Cours d’eau

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "cours_d_eau"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(cours_d_eau) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = cours_d_eau, 
                        table = "n_bdt_cours_d_eau_l_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_cours_d_eau_l_r52
    IS 'Entité hydrographique linéaire nommée ou identifiée par un code hydrographique, se décomposant en tronçons hydrographiques. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_cours_d_eau.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_cours_d_eau, 
               table = "n_bdt_cours_d_eau_l_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Détails hydrographiques

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "detail_hydrographique"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(detail_hydrographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = detail_hydrographique, 
                        table = "n_bdt_detail_hydrographique_p_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_detail_hydrographique_p_r52
    IS 'Détail ou espace dont le nom se rapporte à l''hydrographie. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_detail_hydrographique.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_detail_hydrographique, 
               table = "n_bdt_detail_hydrographique_p_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Limites terre mer

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "limite_terre_mer"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(limite_terre_mer) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = limite_terre_mer, 
                        table = "n_bdt_limite_terre_mer_l_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_limite_terre_mer_l_r52
    IS 'Ligne au niveau de laquelle une masse continentale est en contact avec une masse d''eau, inclut en particulier le trait de côte. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_limite_terre_mer.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_limite_terre_mer, 
               table = "n_bdt_limite_terre_mer_l_r52", 
               schema = schema_name, db = database,
               user = role)
               
# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Noeuds hydrographiques

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# Paramétrer le nom de la couche
table_name <- "noeud_hydrographique"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(noeud_hydrographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = noeud_hydrographique, 
                        table = "n_bdt_noeud_hydrographique_p_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_noeud_hydrographique_p_r52
    IS 'Ligne au niveau de laquelle une masse continentale est en contact avec une masse d''eau, inclut en particulier le trait de côte. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_noeud_hydrographique.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_noeud_hydrographique, 
               table = "n_bdt_noeud_hydrographique_p_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Plans d’eau

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "plan_d_eau"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(plan_d_eau) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = plan_d_eau, 
                        table = "n_bdt_plan_d_eau_s_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_plan_d_eau_s_r52
    IS 'Ligne au niveau de laquelle une masse continentale est en contact avec une masse d''eau, inclut en particulier le trait de côte. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_plan_d_eau.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_plan_d_eau, 
               table = "n_bdt_plan_d_eau_s_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Surfaces hydrographiques

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "surface_hydrographique"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(surface_hydrographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = surface_hydrographique, 
                        table = "n_bdt_surface_hydrographique_s_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_surface_hydrographique_s_r52
    IS 'Ligne au niveau de laquelle une masse continentale est en contact avec une masse d''eau, inclut en particulier le trait de côte. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_surface_hydrographique.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_surface_hydrographique, 
               table = "n_bdt_surface_hydrographique_s_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)

Tronçons hydrographiques

Téléchargement des données

On paramètre ensuite le nom de la couche avant de l’importer dans un dataframe :

# # Paramétrer le nom de la couche
table_name <- "troncon_hydrographique"
# Importer la couche dans un dataframe du même nom que la couche
assign(table_name, sf::st_read(fichier_gpkg, layer = table_name, quiet = TRUE))

Renommage du champs géométrique

# Renommer la colonne
sf::st_geometry(troncon_hydrographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = troncon_hydrographique, 
                        table = "n_bdt_troncon_hydrographique_l_r52", 
                        schema = schema_name, 
                        db = database,
                        pk = primary_key, 
                        overwrite = TRUE, 
                        user = role)

Ajout des commentaires

# Établir une connexion à la base de données PostgreSQL
connexion <- datalibaba::connect_to_db(db = database, user = role)
  
# Génération de la date du jour
date_now <- format(Sys.Date(), "%d/%m/%Y")

# Requête pour ajouter le commentaire sur la table
table_comment <- glue::glue("COMMENT ON TABLE {schema_name}.n_bdt_troncon_hydrographique_l_r52
    IS 'Ligne au niveau de laquelle une masse continentale est en contact avec une masse d''eau, inclut en particulier le trait de côte. (Publiée le {date_now})';")

# Exécuter la commande SQL
DBI::dbExecute(connexion, table_comment)

source("../data/dico_troncon_hydrographique.R")

# Ajouter les commentaires sur les champs
post_dico_attr(dico = dico_troncon_hydrographique, 
               table = "n_bdt_troncon_hydrographique_l_r52", 
               schema = schema_name, 
               db = database,
               user = role)

# Fermeture de la connexion à la base de données
DBI::dbDisconnect(connexion)