#33 Suppression du lien "go_to_explorer" qui apparaît lorsque aucun lot de...

#33 Suppression du lien "go_to_explorer" qui apparaît lorsque aucun lot de données ne correspond à la recherche.

server.R

@@ -51,18 +51,12 @@ server <- function(input, output, session) {
     selected_schema <- sub(" : .*", "", input$schema)
     req(selected_base, selected_schema)
 
-    print(paste("Selected base:", selected_base))
-    print(paste("Selected schema:", selected_schema))
-
     if (selected_schema == "Tous") {
       tables_pour_schema <- character(0)  # Pas de tables à afficher
     } else {
       tables_pour_schema <- tb_sch_base %>%
         dplyr::filter(base == selected_base, nom_schema == selected_schema) %>%
         dplyr::pull(table)
-
-      # Vérifie si des tables sont trouvées
-      print(paste("Tables found:", toString(tables_pour_schema)))
     }
     if(length(tables_pour_schema) > 0) {
       shiny::updateSelectInput(session, "table", choices = c("Toutes", tables_pour_schema), selected = "Toutes")
@@ -385,7 +379,6 @@ server <- function(input, output, session) {
       tagList(
         p(
           "Aucun lot de données ne correspond à votre recherche, veuillez renouveler votre recherche ou explorer les bases de données disponibles (2e onglet)",
-          actionLink("go_to_explorer", "Aller à Explorer", style = "margin-top: 10px; color: blue;")
         )
       )
     } else {
@@ -394,36 +387,7 @@ server <- function(input, output, session) {
   })
 })
 
-# Événement lors du clic sur le lien "Aller à Explorer"
-observeEvent(input$go_to_explorer, {
-  # Réinitialiser les selectInput pour base, schema, et table
-  updateSelectInput(session, "base", choices = bases_avec_commentaires$display_name, selected = NULL)
-  updateSelectInput(session, "schema", choices = c("Tous"), selected = "Tous")
-  updateSelectInput(session, "table", choices = c("Toutes"), selected = "Toutes")
-
-  # Vider les affichages des tables de données et autres éléments précédents
-  output$data_table <- DT::renderDataTable({
-    NULL  # Vider le tableau de métadonnées
-  })
-  output$data_table_preview <- DT::renderDataTable({
-    NULL  # Vider l'aperçu des données
-  })
-  output$map <- renderLeaflet({
-    NULL  # Vider la carte
-  })
-  output$breadcrumb_metadata <- renderUI({
-    NULL  # Vider le fil d'Ariane
-  })
-  output$commentaire_metadata <- renderUI({
-    NULL  # Vider le commentaire des métadonnées
-  })
-  output$table_metadata <- renderUI({
-    NULL  # Vider les informations sur la table (nombre de lignes, taille, etc.)
-  })
 
-  # Basculer vers l'onglet Explorer
-  updateTabsetPanel_dsfr(session = session, inputId = "mon_panel1", selected = "Explorer")
-})
 
 # Réagir à la sélection d'une base
 observeEvent(input$selected_base, {