author -> auteur

server.R

@@ -28,7 +28,7 @@ server <- function(input, output, session) {
     r$filteredData <- r$filteredByDate %>%
       filter(
         (if (length(input$topics)) sapply(input$topics, function(t) grepl(t, topics)) %>% rowSums() > 0 else TRUE) &
-          (if (length(input$author)) author %in% input$author 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)
       )
@@ -45,7 +45,7 @@ server <- function(input, output, session) {
                            .[. != ""] %>%             # Supprime les chaînes vides
                            trimws() %>%                # suppremie les espace avnt et apres
                            unique() , selected = input$topics)
-    updateSelectizeInput(session, "author", choices = unique(r$filteredByDate$author), selected = input$author)
+    updateSelectizeInput(session, "author", choices = unique(r$filteredByDate$auteur), selected = input$auteur)
     updateSelectizeInput(session, "categorie", choices = unique(r$filteredByDate$categorie), selected = input$categorie)
 
     # Basé uniquement sur les données globales pour éviter que project_name soit affecté