Encode paths to native encoding #40

NEWS.md

@@ -1,6 +1,7 @@
 ### rlas v1.3.3
 
-* New: enable to read `.ply` files in `read.las` and `read.lasheader` ([#39](https://github.com/Jean-Romain/rlas/issues/39))
+* New: enable to read `.ply` files in `read.las` and `read.lasheader`. This is an undocumented feature not actually intended to be used. ([#39](https://github.com/Jean-Romain/rlas/issues/40)).
+* Fix: ([#40](https://github.com/Jean-Romain/rlas/issues/40)) in `read.las` and `read.lasheader` modifications in string encoding in R 3.5.0 generated issues with path containing special characters. Native encoding is now enforced.
 
 ### rlas v1.3.2 (Release date: 2019-04-26)
 

R/readLAS.r

@@ -89,7 +89,7 @@ read.lasheader = function(file)
 {
   valid     <- file.exists(file)
   supported <- tools::file_ext(file) %in% c("las", "laz", "LAS", "LAZ", "ply", "PLY")
-  file      <- normalizePath(file)
+  file      <- enc2native(normalizePath(file))
 
   if (!valid)      stop("File not found", call. = F)
   if (!supported)  stop("File not supported", call. = F)
@@ -102,8 +102,8 @@ read.lasheader = function(file)
 stream.las = function(ifiles, ofile = "", select = "*", filter = "", filter_wkt = "")
 {
   stream    <- ofile != ""
-  ifiles    <- normalizePath(ifiles)
-  ofile     <- normalizePath(ofile, mustWork = FALSE)
+  ifiles    <- enc2native(normalizePath(ifiles))
+  ofile     <- enc2native(normalizePath(ofile, mustWork = FALSE))
   valid     <- file.exists(ifiles)
   supported <- tools::file_ext(ifiles) %in% c("las", "laz", "LAS", "LAZ", "ply", "PLY")