Resolve "Implémenter la navigation après la recherche plein texte"

global.R

 library(shiny)
+library(shinyjs)
 library(tidyverse)
 library(datalibaba)
 library(purrr)
@@ -11,4 +12,10 @@ 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)
+# A passer dans datamartage.R
+choix_bases <- setNames(bases_avec_commentaires$base, bases_avec_commentaires$display_name)
+commentaires_tables <- filter(commentaires_tables, nom_col == "" | is.na(nom_col)) %>%
+  distinct()
+## Explo différence nombre de tables dans les deux datasets ~ 30 enregistrements d'écarts
+# anti_join(commentaires_tables, tb_sch_base, by = c("nom_schema", "nom_table" = "table", "base")) %>%  View
+# anti_join(tb_sch_base, commentaires_tables, by = c("nom_schema", "table" = "nom_table", "base")) %>%  View

ui.R

@@ -36,8 +36,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
+            shinygouv::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
@@ -48,9 +47,9 @@ ui <- fluidPage_dsfr(
             uiOutput("title_metadata"), # Titre de l'objet sélectionné
             uiOutput("commentaire_metadata"),
             uiOutput("table_metadata"), #Nb de lignes et taille de la table
-            DT::dataTableOutput("data_table"),
-            #uiOutput("metadata_section"), # Section des métadonnées avec "Dictionnaire d'attributs"
-            uiOutput("viz_data"), # Visualisation de la table des données
+            DT::dataTableOutput("metadata_table"),
+
+            uiOutput("viz_data"), # Bouton de visualisation de la table des données
 
             # Mise en page pour les données et la carte côte à côte
             fluidRow(