ajout d'un tab tableau pour afficher dans un tab les infos affichés

server.R

@@ -62,7 +62,7 @@ server <- function(input, output, session) {
     updateFilters()
   })
 
-  # Liens dynamiques pour les projets
+  # Liens dynamiques pour les projets va partir car les projet en sous groupe ne fonctionne pas
   output$lien <- renderUI({
     projects_with_links <- r$filteredData %>%
       filter(origine == "Gitlab_Forge" & project_name %in% input$project_name)
@@ -96,5 +96,19 @@ server <- function(input, output, session) {
     plotly::ggplotly(p, tooltip = "text")
   })
 
+  output$table <- renderDataTable({
+    req(r$filteredData)
+    datatable(r$filteredData ,
+              options = list(
+                pageLength = 10,        # Nombre de lignes affichées par page
+                lengthMenu = c(5, 10, 25, 50),  # Choix du nombre de lignes
+                autoWidth = TRUE,        # Ajuste automatiquement la largeur des colonnes
+                scrollX = TRUE,          # Active le défilement horizontal
+                class = "display",       # Ajoute du style CSS
+                rownames = FALSE,         # Supprime les numéros de ligne,
+                searchHighlight = TRUE
+              )
+    )
+  })
 
 }

ui.R

@@ -115,7 +115,15 @@ ui <- shinygouv::navbarPage_dsfr(
         shinygouv::fluidRow_dsfr(
           shinygouv::column_dsfr(12)
         )
-                    )
+                    ),
+      tabPanel_dsfr(
+        id = "table" ,
+        title = "tableau",
+        shinygouv::fluidRow_dsfr(
+          shinygouv::column_dsfr(12,
+                                 DT::dataTableOutput("table"))
+        )
+        )
     )#↑ tableau_proj
   )# ↑ Navbar
 )# ↑ UI