Fix file.show for files in non-native encoding (PR#16738). From Mikko

Korpela.


git-svn-id: https://svn.r-project.org/R/trunk@88494 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: kalibera

src/library/base/R/files.R

@@ -50,10 +50,13 @@ file.show <-
         for(i in seq_along(files)) {
             f <- files[i]
             tf <- tempfile()
-            tmp <- readLines(f, warn = FALSE)
+            tmp <- list(readBin(f, "raw", file.size(f)))
             tmp2 <- try(iconv(tmp, encoding, "", "byte"))
             if(inherits(tmp2, "try-error")) file.copy(f, tf)
-            else writeLines(tmp2, tf)
+            else {
+                tmp2 <- strsplit(tmp2, "\r\n?|\n", perl = TRUE)[[1L]]
+                writeLines(tmp2, tf)
+            }
             files[i] <- tf
             if(delete.file) unlink(f)
         }