Skip to content
Snippets Groups Projects
Commit 9a938e50 authored by lisasmah's avatar lisasmah
Browse files

#51 Changement d'onglet au clic sur un nom de base ou schema ou table

parent 0e916b58
No related branches found
No related tags found
3 merge requests!55Draft: #30 Afficher la date de dernière mise à jour d'une table dans les métadonnées, si disponible,!51Draft: #65 Documentation du datamart de l'app avec un schéma + détails des tables,!49#51 Ajout des sous-onglets conditionnels 'Données' et 'Aperçu spatial' dans...
......@@ -12,11 +12,7 @@ db_list <- c(consultation = datalibaba::connect_to_db("consultation", user = rol
# Récupération des commentaires pour chaque base de données
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 %>%
rename(base = nom_base)%>%
dplyr::mutate(commentaire = tidyr::replace_na(commentaire, "")) %>%
dplyr::mutate(display_name = paste(base, commentaire, sep = " : "))
......
......@@ -74,7 +74,9 @@ server <- function(input, output, session) {
if (nrow(search_results) > 0) {
search_results <- search_results %>%
dplyr::left_join(tables_catalog %>% dplyr::select(base, nom_schema, nom_table, commentaire),
dplyr::left_join(tables_catalog %>%
dplyr::filter(nom_col == "") %>%
dplyr::select(base, nom_schema, nom_table, commentaire),
by = c("base", "nom_schema", "nom_table")) %>%
dplyr::rename(`Libellé` = commentaire) %>%
dplyr::distinct()
......@@ -146,8 +148,8 @@ server <- function(input, output, session) {
req(input$clic_table == input$table)
message(paste("Mise à jour de l'input table réalisée : ", input$table))
shinyjs::click("visualiserMetadata")
shinygouv::updateTabsetPanel_dsfr(session = session, inputId = "navbar_dsfr", selected = "explorer_panel")
})
shinyjs::runjs("navigateToExplorer();")
})
})
})
})
......
......@@ -31,7 +31,14 @@ ui <- tagList(
search_bar(),
tags$br(),
DT::dataTableOutput("search_results"),
uiOutput("search_message")
uiOutput("search_message"),
tags$head(
tags$script(HTML("
function navigateToExplorer() {
showTabFromHash('explorer');
}
"))
)
)
),
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment