Bugfix: finding home path in non-UTF8 Windows with accented characters in user-name

https://github.com/r-lib/fs/issues/291

DESCRIPTION

 Package: mapMCDA
 Title: Produce an epidemiological risk map by weighting multiple risk
         factors
-Version: 0.4.52
+Version: 0.4.53
 Date: 2020-05-23
 Authors@R: c( person("Andrea", "Apolloni", email =
         "andrea.apolloni@cirad.fr", role = c("ctb"), comment = "Animal

inst/interface/server.R

@@ -25,7 +25,7 @@ server <- function(input, output, session) {
   
   
   # For shinyFiles package
-  volumes <- c(Home = fs::path_home(), "R Installation" = R.home(), getVolumes()())
+  volumes <- c(Home =  normalizePath(path.expand("~/")), "R Installation" = R.home(), getVolumes()())
   shinyFileChoose(input, "file", roots = volumes, session = session) # use after input$file