Mise à jour de l'UI en ajoutant l'onglet indicateur

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