setlocale at the beginning of the script

app.R

@@ -19,6 +19,9 @@ uniq <- function(df, ...)
 
 df[columns,]
 }
+
+Sys.setlocale("LC_TIME", "fr_FR.UTF-8")
+
 dbConnect(SQLite(), "ecn.db") -> db
 
 # Index villes et spés ----
@@ -83,7 +86,6 @@ server <- shinyServer(function(input, output)
                           dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T)) -> db
 
                           # Last update ----
-                          Sys.setlocale("LC_TIME", "fr_FR.UTF-8")
                           db %>%
                             tbl("trajectoires") %>%
                             select(timestamp) %>%