topics remplacer par etiquette qui est = topics + groupe

server.R

@@ -2,7 +2,7 @@ server <- function(input, output, session) {
   r <- reactiveValues(
     filteredData = all_data,
     filteredByProject = all_data, # Étape intermédiaire filtrée par daterange et project_name
-    filteredTopics = NULL,
+    filteredetiquette = NULL,
     filteredProjects = NULL,
     filteredAuthors = NULL,
     filteredReCodes = NULL,
@@ -27,7 +27,7 @@ server <- function(input, output, session) {
     req(input$daterange)
     r$filteredData <- r$filteredByDate %>%
       filter(
-        (if (length(input$topics)) sapply(input$topics, function(t) grepl(t, topics)) %>% rowSums() > 0 else TRUE) &
+        (if (length(input$etiquette)) sapply(input$etiquette, function(t) grepl(t, etiquette)) %>% rowSums() > 0 else TRUE) &
           (if (length(input$auteur)) auteur %in% input$auteur else TRUE) &
           (if (length(input$re_code)) re_code %in% input$re_code else TRUE) &
           (if (length(input$categorie)) categorie %in% input$categorie else TRUE)
@@ -38,13 +38,13 @@ server <- function(input, output, session) {
   # Fonction de mise à jour des choix pour les filtres
   updateFilters <- reactive({
     # Basé sur les données filtrées par date et projet
-    updateSelectizeInput(session, "topics", choices = unique(r$filteredByDate$topics)%>%
+    updateSelectizeInput(session, "etiquette", choices = unique(r$filteredByDate$etiquette)%>%
                            strsplit(split = ",") %>%  # Divise les chaînes en éléments séparés
                            unlist() %>%               # Aplatit la liste obtenue
                            na.omit() %>%              # Supprime les NA (au cas où)
                            .[. != ""] %>%             # Supprime les chaînes vides
                            trimws() %>%                # suppremie les espace avnt et apres
-                           unique() , selected = input$topics)
+                           unique() , selected = input$etiquette)
     updateSelectizeInput(session, "author", choices = unique(r$filteredByDate$auteur), selected = input$auteur)
     updateSelectizeInput(session, "categorie", choices = unique(r$filteredByDate$categorie), selected = input$categorie)
 
@@ -58,7 +58,7 @@ server <- function(input, output, session) {
       filter(updated_at >= as.Date(input$daterange[[1]]) &
                updated_at <= as.Date(input$daterange[[2]]))
     r$filteredData <- r$filteredByDate
-    updateSelectizeInput(session, "topics", selected = NULL)
+    updateSelectizeInput(session, "etiquette", selected = NULL)
     updateSelectizeInput(session, "author", selected = NULL)
     updateSelectizeInput(session, "categorie", selected = NULL)
     updateFilters()

ui.R

@@ -33,9 +33,9 @@ ui <- shinygouv::navbarPage_dsfr(
       shinygouv::column_dsfr(
         3,
         selectizeInput(
-          inputId = "topics",
+          inputId = "etiquette",
           label = "Étiquette :",
-          choices = all_data$topics %>%
+          choices = all_data$etiquette %>%
             strsplit(split = ",") %>%  # Divise les chaînes en éléments séparés
             unlist() %>%               # Aplatit la liste obtenue
             na.omit() %>%              # Supprime les NA (au cas où)