author -> auteur

ui.R

@@ -31,15 +31,6 @@ ui <- shinygouv::navbarPage_dsfr(
         extra_class = "fr-mt-6w"
       ),
       shinygouv::column_dsfr(
-        3,
-        selectizeInput(
-          inputId = "project_name",
-          label = "Projet : ",
-          choices = NULL,
-          multiple = TRUE
-        ),extra_class = "fr-mt-6w"
-      ),
-      column_dsfr(
         3,
         selectizeInput(
           inputId = "topics",
@@ -53,6 +44,15 @@ ui <- shinygouv::navbarPage_dsfr(
             unique() ,
           # Extrait les éléments uniques
           multiple = TRUE
+          ),extra_class = "fr-mt-6w"
+      ),
+      column_dsfr(
+        3,
+        selectizeInput(
+          inputId = "project_name",
+          label = "Projet : ",
+          choices = NULL,
+          multiple = TRUE
         ),extra_class = "fr-mt-6w"
       ),
       column_dsfr(
@@ -60,7 +60,7 @@ ui <- shinygouv::navbarPage_dsfr(
         selectizeInput(
           inputId = "author",
           label = "Auteur :",
-          choices = unique(str_to_title(replace_non_ascii(all_data$author))),
+          choices = unique(str_to_title(replace_non_ascii(all_data$auteur))),
           selected = NULL,
           multiple = TRUE
         ),extra_class = "fr-mt-6w"