From c328ddac72438d1ff67d8668840996979146f529 Mon Sep 17 00:00:00 2001 From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr> Date: Thu, 27 Mar 2025 11:44:36 +0100 Subject: [PATCH] =?UTF-8?q?Mise=20=C3=A0=20jour=20de=20l'UI=20en=20ajoutan?= =?UTF-8?q?t=20l'onglet=20indicateur?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ui.R | 48 ++++++++++++++++++++++++++++-------------------- 1 file changed, 28 insertions(+), 20 deletions(-) diff --git a/ui.R b/ui.R index b61cb63..7fc7323 100644 --- a/ui.R +++ b/ui.R @@ -4,7 +4,7 @@ ui <- shinygouv::navbarPage_dsfr( id = "nav", header = shinygouv::header_dsfr( intitule = c("DREAL", "Pays de la Loire"), - nom_site_service = "Tableau de bord GitLab-Forge", + nom_site_service = "Visualisation des projets du CSD gérés avec git", baseline = "Les Projets du Centre de Services de la Donnée" ), footer = footer_dsfr( @@ -16,8 +16,7 @@ ui <- shinygouv::navbarPage_dsfr( ), # First tab Projet --------- shinygouv::navbarPanel_dsfr( - title = "Graphique des projets par durée", - + title = "Graphique par période", htmltools::tags$head(tags$style(".fr-container { max-width: calc(100% - 2rem); }")), shinygouv::fluidRow_dsfr( shinygouv::column_dsfr( @@ -44,21 +43,23 @@ ui <- shinygouv::navbarPage_dsfr( unique() , # Extrait les éléments uniques multiple = TRUE - ),extra_class = "fr-mt-6w" + ), + extra_class = "fr-mt-6w" ), column_dsfr( 3, selectizeInput( inputId = "project_name", - label = "Projet : ", + label = "Sélectionnez projet : ", choices = NULL, multiple = TRUE - ),extra_class = "fr-mt-6w" + ), + extra_class = "fr-mt-6w" ), column_dsfr( 3, selectizeInput( - inputId = "author", + inputId = "auteur", label = "Auteur :", choices = unique(str_to_title(replace_non_ascii(all_data$auteur))), selected = NULL, @@ -83,12 +84,8 @@ ui <- shinygouv::navbarPage_dsfr( 4, selectizeInput( inputId = "categorie", - label = "Groupe: ", - choices = c( - "Autre" = "tous", - "Spyrales" = "spyrale", - "R Formation" = "github" - ), + label = " Évenement (précis) ", + choices = unique(all_data$type), selected = NULL, multiple = TRUE ) @@ -106,24 +103,35 @@ ui <- shinygouv::navbarPage_dsfr( plotly::plotlyOutput("filteredPlot2", height = "700px"), extra_class = "fr-my-1w" ) - ) ),# tab graphique par choix ↑ tabPanel_dsfr( id = "indicateur" , title = "Indicateurs", shinygouv::fluidRow_dsfr( - shinygouv::column_dsfr(12) + column_dsfr(3, + textOutput("nb_projet"), + textOutput("nb_commit"), + textOutput("nb_temps"), extra_class = "fr-my-1w" + ), + shinygouv::column_dsfr(9, + plotlyOutput("bar_chart"), + extra_class = "fr-my-1w"), + + column_dsfr(12,textOutput("min_value")), + column_dsfr(12,textOutput("temps")), + column_dsfr(12,plotOutput("bar"), + extra_class = "fr-my-1w") ) - ), + ),# tab indicateur par choix ↑ tabPanel_dsfr( - id = "table" , - title = "tableau", + id = "Table" , + title = "Table", shinygouv::fluidRow_dsfr( shinygouv::column_dsfr(12, - DT::dataTableOutput("table")) - ) + DTOutput('table')) ) + )# tab table par choix ↑ )#↑ tableau_proj )# ↑ Navbar )# ↑ UI -- GitLab