Lots de données Bâti

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

Bâtiments

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 <- "batiment"
# 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(batiment) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = batiment, 
                        table = "n_bdt_batiment_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_batiment_s_r52
    IS 'Construction au-dessus du sol qui est utilisée pour abriter des humains, des animaux, des objets, pour la production de biens économiques ou pour la prestation de services et qui se réfère à toute structure construite ou
érigée de façon permanente sur son site. (Publiée le {date_now})';")

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

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

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

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

Bâtiments RNB lien BD TOPO

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 <- "batiment_rnb_lien_bdtopo"
# 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(batiment_rnb_lien_bdtopo) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = batiment_rnb_lien_bdtopo, 
                        table = "n_bdt_batiment_rnb_lien_bdtopo_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_batiment_rnb_lien_bdtopo_s_r52
    IS 'Bâtiment selon la définition du Référentiel National des Bâtiments (RNB) :
Construction souterraine et/ou au-dessus du sol, ayant pour objectif d être permanente, pour abriter des humains ou
des activités humaines. Un bâtiment possède a minima un accès depuis l’extérieur. Dans la mesure du possible, un
bâtiment est distinct d’un autre dès lors qu’il est impossible de circuler entre eux. (Publiée le {date_now})';")

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

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

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

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

Cimetières

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 <- "cimetiere"
# 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(cimetiere) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = cimetiere, 
                        table = "n_bdt_cimetiere_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_cimetiere_s_r52
    IS 'Terrain où l''on enterre les morts. (Publiée le {date_now})';")

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

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

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

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

Constructions linéaires

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 <- "construction_lineaire"
# 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(construction_lineaire) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = construction_lineaire, 
                        table = "n_bdt_construction_lineaire_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_construction_lineaire_l_r52
    IS 'Construction dont la forme générale est linéaire. (Publiée le {date_now})';")

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

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

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

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

Constructions ponctuelles

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 <- "construction_ponctuelle"
# 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(construction_ponctuelle) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = construction_ponctuelle, 
                        table = "n_bdt_construction_ponctuelle_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_construction_ponctuelle_p_r52
    IS 'Construction de faible emprise et de grande hauteur de plus de 50 m de haut et de moins de 20 m2. (Publiée le {date_now})';")

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

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

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

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

Constructions surfaciques

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 <- "construction_surfacique"
# 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(construction_surfacique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = construction_surfacique, 
                        table = "n_bdt_construction_surfacique_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_construction_surfacique_s_r52
    IS 'Construction dont la forme générale est surfacique. (Publiée le {date_now})';")

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

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

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

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

Lignes orographiques

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 <- "ligne_orographique"
# 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(ligne_orographique) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = ligne_orographique, 
                        table = "n_bdt_ligne_orographique_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_ligne_orographique_l_r52
    IS 'Ligne de rupture de pente artificielle. (Publiée le {date_now})';")

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

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

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

Pylones

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 <- "pylone"
# 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(pylone) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = pylone, 
                        table = "n_bdt_pylone_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_pylone_p_r52
    IS 'Support en charpente métallique ou en béton, d’une ligne électrique aérienne. (Publiée le {date_now})';")

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

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

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

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

Réservoirs

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 <- "reservoir"
# 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(reservoir) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = reservoir, 
                        table = "n_bdt_reservoir_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_reservoir_s_r52
    IS 'Construction dont la forme générale est surfacique. (Publiée le {date_now})';")

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

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

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

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

Terrains de sports

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 <- "terrain_de_sport"
# 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(terrain_de_sport) <- "the_geom"

Création de la table en base

datalibaba::poster_data(data = terrain_de_sport, 
                        table = "n_bdt_terrain_de_sport_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_terrain_de_sport_s_r52
    IS 'Équipement sportif de plein air. (Publiée le {date_now})';")

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

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

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

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