Use useBytes = TRUE (#59)

yutannihilation · lionel- · commit 456e9da25c38 · 2019-01-10T13:36:19.000+01:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,8 @@
 
 # vdiffr 0.3.0.9000
 
+- Fix warnings in non-UTF-8 MBCS locale (#59, @yutannihilation).
+
 
 # vdiffr 0.3.0
 
diff --git a/R/utils.R b/R/utils.R
@@ -28,7 +28,7 @@ capitalise <- function(x) {
 }
 
 read_file <- function(file) {
-  readChar(file, file.info(file)$size)
+  readChar(file, file.info(file)$size, useBytes = TRUE)
 }
 
 package_version <- function(pkg) {

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@ capitalise <- function(x) {`
`28`	`28`	`}`
`29`	`29`
`30`	`30`	`read_file <- function(file) {`
`31`		`- readChar(file, file.info(file)$size)`
	`31`	`+ readChar(file, file.info(file)$size, useBytes = TRUE)`
`32`	`32`	`}`
`33`	`33`
`34`	`34`	`package_version <- function(pkg) {`