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