merge branche station travail

data-raw/datamartage.R

@@ -9,17 +9,11 @@ db_list <- c(consultation = datalibaba::connect_to_db("consultation", user = rol
              datamart = datalibaba::connect_to_db("datamart", user = role),
              si_eau = datalibaba::connect_to_db("si_eau", user = role))
 
-# db_liste est une liste des noms des bases de données
-db_liste <- c("consultation", "referentiels", "datamart", "si_eau")
-
 # Récupération des commentaires pour chaque base de données
-commentaires_base <- purrr::map_dfr(.x = db_liste, .f = function(db_name) {
-  comment_data <- datalibaba::get_db_comment(db = db_name, user = role)
-  tibble(
-    base = db_name,
-    commentaire = comment_data$commentaire
-  )
-})
+bases_avec_commentaires <- purrr::map_dfr(.x = names(db_list),
+                                          .f = ~datalibaba::get_db_comment(db = .x, user = role)) %>%
+  rename(base = nom_base) %>%
+
 
 # Création d'une liste combinée avec noms et commentaires
 bases_avec_commentaires <- commentaires_base %>%
@@ -43,7 +37,8 @@ commentaires_schema <- purrr::map2_dfr(.x = db_schema_list0$nom_schema, .y = db_
                                       )
 
 db_schema_list <- db_schema_list0 %>%
-  dplyr::left_join(commentaires_schema %>% dplyr::mutate(commentaire = tidyr::replace_na(commentaire, "")), by = c("base", "nom_schema")) %>%
+  dplyr::left_join(commentaires_schema %>% dplyr::mutate(commentaire = tidyr::replace_na(commentaire, "")),
+                   by = c("base", "nom_schema")) %>%
   dplyr::mutate(display_name = paste(nom_schema, commentaire, sep = " : ") %>%
                   gsub(": $", "", .))
 
@@ -93,7 +88,8 @@ types_champs <- purrr::map_dfr(db_list, ~DBI::dbGetQuery(.x, "SELECT table_catal
 
 ### B- Récupération des commentaires de table et de champs
 commentaires_tables <- purrr::map_dfr(.x = c(1:nrow(tb_sch_base)),
-                        .f = ~(datalibaba::get_table_comments(table = tb_sch_base$table[.x], schema = tb_sch_base$nom_schema[.x], db = tb_sch_base$base[.x], user = role) %>%
+                                      .f = ~(datalibaba::get_table_comments(table = tb_sch_base$table[.x], schema = tb_sch_base$nom_schema[.x],
+                                                                            db = tb_sch_base$base[.x], user = role) %>%
                                  dplyr::mutate(nom_col = dplyr::coalesce(nom_col, ""),  base = tb_sch_base$base[.x]))
 )
 
@@ -116,7 +112,7 @@ base_recherche_txt <- tables_catalog %>%
 # 4- Exports du datamart au format RData ---------------------------------------------------------
 date_datamart <- Sys.Date() %>% format.Date("%d/%m/%Y")
 
-tb_datamart <- c("commentaires_base","commentaires_schema", "tables_catalog", "base_recherche_txt","bases_avec_commentaires", "commentaires_tables",
+tb_datamart <- c("commentaires_schema", "tables_catalog", "base_recherche_txt","bases_avec_commentaires", "commentaires_tables",
                  "db_schema_list", "tb_sch_base", "date_datamart") # liste des objets à inclure
 
 nom_datamart <- "datamart_catalogue.RData" # nom du RData

server.R

@@ -179,7 +179,7 @@ server <- function(input, output, session) {
         r$nom_meta_csv <- paste("metadonnees", r$base, Sys.Date(), sep = ".")
         # Commentaire descriptif de la base
         r$commentaire <- bases_avec_commentaires %>%
-          filter(base == selected_base) %>%
+          filter(base == r$base) %>%
           pull(commentaire) %>%
           unique()
       } else {
@@ -187,9 +187,9 @@ server <- function(input, output, session) {
         r$fil_ariane <- tags$nav(
           class = "fr-breadcrumb",
           class = "fr-breadcrumb__list",
-          tags$span(id = "base_text", class = "fr-breadcrumb__item", selected_base),
+          tags$span(id = "base_text", class = "fr-breadcrumb__item", r$base),
           tags$span(" > "),
-          tags$span(id = "schema_text", class = "fr-breadcrumb__item", selected_schema)
+          tags$span(id = "schema_text", class = "fr-breadcrumb__item", r$schema)
         )
         r$title_metadata <- paste0("Tables du schéma : ", r$base, '.', r$schema)
         r$metadata_csv <- r$tables_pour_schema %>%
@@ -200,6 +200,7 @@ server <- function(input, output, session) {
         # commentaire descriptif du schema
 
         r$commentaire <- commentaires_schema %>%
+          dplyr::filter(base == r$base, nom_schema == r$schema) %>%
           dplyr::filter(base == r$base, nom_schema == r$schema) %>%
           dplyr::pull(commentaire) %>%
           unique()
@@ -209,11 +210,11 @@ server <- function(input, output, session) {
       r$fil_ariane <- tags$nav(
         class = "fr-breadcrumb",
         class = "fr-breadcrumb__list",
-        tags$span(id = "base_text", class = "fr-breadcrumb__item", selected_base),
+        tags$span(id = "base_text", class = "fr-breadcrumb__item", r$base),
         tags$span(" > "),
-        tags$span(id = "schema_text", class = "fr-breadcrumb__item", selected_schema),
+        tags$span(id = "schema_text", class = "fr-breadcrumb__item", r$schema),
         tags$span(" > "),
-        tags$span(id = "table_text", class = "fr-breadcrumb__item", selected_table)
+        tags$span(id = "table_text", class = "fr-breadcrumb__item", r$table)
       )
       r$title_metadata <- paste0("Dictionnaire d'attribut de la table ", r$table)
       r$metadata_csv <- tables_catalog %>%

ui.R

@@ -36,7 +36,8 @@ ui <- fluidPage_dsfr(
         sidebarLayout(
           sidebarPanel(
             h3("Explorer les bases de données du patrimoine de la DREAL"),
-            shinygouv::selectInput_dsfr("base", "Choisir la base", choices = choix_bases, selected = NULL),# Sélection de la base
+            shinygouv::selectInput_dsfr("base", "Choisir la base", choices = bases_avec_commentaires$display_name,
+                                        selected = NULL),# Sélection de la base
             shinygouv::selectInput_dsfr("schema", "Choisir le schéma", NULL), # Sélection du nom du schéma
             shinygouv::selectInput_dsfr("table", "Choisir la table", NULL), # Sélection du nom de la table
             shinygouv::actionButton_dsfr("visualiserMetadata", "Valider la sélection")# Bouton de validation pour visualiser les métadonnées