#62 ajout du contrôle datables permettant d'afficher 20,50,100 ou tous les résultats

server.R

@@ -283,27 +283,29 @@ server <- function(input, output, session) {
 
   # Mise à jour du tableau de métadonnées avec options d'export CSV et pagination
   output$metadata_table <- DT::renderDataTable({
-    req(r$selected_metadata)
+    req(r$selected_metadata)  # Vérifie que les données sont disponibles
     DT::datatable(
       r$selected_metadata,
-      filter = 'bottom',  # Ajout du filtre en bas des colonnes
-      extensions = 'Buttons',  # Ajout des boutons d'exportation CSV
-      rownames = FALSE,
+      filter = 'bottom',
+      extensions = 'Buttons',  # Active l'extension Buttons pour l'exportation
       options = list(
-        dom = 'Bfrtip',
-        pageLength = 20,
-        lengthMenu = c(20, 50, 100),
+        pageLength = 20,  # Nombre de lignes par défaut affichées
+        lengthMenu = list(
+          c(20, 50, 100, -1),  # Valeurs disponibles
+          c("20", "50", "100", "Tous")  # Libellés associés
+        ),
+        dom = 'Blfrtip',  # Inclut les boutons d'exportation
         language = list(url = 'https://cdn.datatables.net/plug-ins/1.10.21/i18n/French.json'),
-        autoWidth = FALSE,
-        scrollX = TRUE,  # Activer le défilement horizontal
         buttons = list(
           list(
             extend = 'csv',
             text = 'Télécharger CSV',
-            filename =  r$nom_meta_csv  # Utilisation du nom de fichier pour les métadonnées
+            filename = r$nom_meta_csv  # Nom du fichier CSV
           )
-        )
-      )
+        ),
+        scrollX = TRUE  # Active le défilement horizontal si nécessaire
+      ),
+      rownames = FALSE,
     )
   })
 
@@ -354,25 +356,29 @@ server <- function(input, output, session) {
     DT::datatable(head(r$data_csv, 100),
                   filter = 'bottom',
                   extensions = 'Buttons',
-                  rownames = FALSE,
-                  options = list(
-                    dom = 'Bfrtip',
-                    pageLength = 20,
-                    lengthMenu = c(20, 50, 100),
-                    language = list(url = 'https://cdn.datatables.net/plug-ins/1.10.21/i18n/French.json'),
-                    autoWidth = FALSE,
-                    scrollX = TRUE,  # Activer le défilement horizontal
+                    options = list(
+                      pageLength = 20,  # Nombre de lignes par défaut affichées
+                      lengthMenu = list(
+                        c(20, 50, 100, -1),  # Valeurs disponibles
+                        c("20", "50", "100", "Tous")  # Libellés associés
+                      ),
+                      dom = 'Blfrtip',  # Inclut les boutons d'exportation
+                      language = list(url = 'https://cdn.datatables.net/plug-ins/1.10.21/i18n/French.json'),
                     buttons = list(
                       list(
                         extend = 'csv',
                         text = 'Télécharger CSV',
                         filename =  r$nom_csv
                       )
-                    )
-                  )
-    )
+                  ),
+                  scrollX = TRUE # Activer le défilement horizontal
+                  ),
+             rownames = FALSE
+        )
   })
 
+
+
   # Mettre à jour la viz carto de la table dans la zone principale de la page
   output$map <- renderLeaflet({
     req(r$selected_data)