#85 use locale() for read_file

ropensci · Jun 7, 2016 · fa25d3f · fa25d3f
1 parent e04692f
commit fa25d3f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/zzz.r b/R/zzz.r
@@ -318,11 +318,11 @@ geojson_rw_ <- function(input, ...){
     tmp <- tempfile(fileext = ".geojson")
     tmp2 <- suppressMessages(geojson_write(input, file = tmp))
     paths <- vapply(tg_compact(tmp2), "[[", "", "path")
-    lapply(paths, readr::read_file, ...)
+    lapply(paths, readr::read_file, locale = readr::locale())
   } else {
     tmp <- tempfile(fileext = ".geojson")
     suppressMessages(geojson_write(input, file = tmp))
-    readr::read_file(tmp, ...)
+    readr::read_file(tmp, locale = readr::locale())
   }
 }