diff --git a/ui.R b/ui.R index b61cb63619f1794ae5497ecb2581b2cbfc0bd4eb..7fc73230eb9f5734b88dc28b10d051a58fb8cf76 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