#33 Simplification du code

global.R

@@ -11,5 +11,4 @@ nom_local <- "datamart_catalogue.RData"
 adresse_T <- paste0("T:/datalab/SCTE/CATALOGUE/PRODUCTION/", nom_local)
 if(file.exists(adresse_T)) load(file = adresse_T) else load(nom_local)
 
-liste_bases <- bases_avec_commentaires$base %>% setNames(bases_avec_commentaires$display_name)
-
+choix_bases <- setNames(bases_avec_commentaires$base, bases_avec_commentaires$display_name)

server.R

@@ -12,15 +12,6 @@ server <- function(input, output, session) {
     table_size = NULL
   )
 
-  # Mise à jour des listes déroulantes des bases avec commentaires au démarrage
-  observeEvent(TRUE, {
-    bases_avec_commentaires <- commentaires_base %>%
-      dplyr::mutate(commentaire = tidyr::replace_na(commentaire, "")) %>%
-      dplyr::mutate(display_name = paste(base, commentaire, sep = " : "))
-
-    updateSelectInput(session, "base", choices = bases_avec_commentaires$display_name, selected = NULL)
-  })
-
   # Variable réactive pour stocker schemas_pour_base
   schemas_pour_base_react <- reactive({
     selected_base <- sub(" : .*", "", input$base)

ui.R

@@ -35,8 +35,7 @@ ui <- fluidPage_dsfr(
         sidebarLayout(
           sidebarPanel(
             h3("Explorer les bases de données du patrimoine de la DREAL"),
-            #selectInput_dsfr("base", "Choisir la base", choices = NULL), # Sélection de la base
-            selectInput_dsfr("base", "Choisir la base", choices = liste_bases, selected = NULL), # Sélection de la base
+            selectInput_dsfr("base", "Choisir la base", choices = choix_bases, 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", "Visualiser les métadonnées")# Bouton de validation pour visualiser les métadonnées