Use csv2

index.Rmd

@@ -65,7 +65,7 @@ data_abondances <- reactive(
   {
     req(input$data_abondances)
 
-    read_csv(input$data_abondances$datapath, locale = locale(decimal_mark = ",")) %>%
+    read_csv2(input$data_abondances$datapath) %>%
       mutate_if(is.character, factor)
   }
 )