Set Encoding()

krlmlr · krlmlr · commit 2d1a2e5974cf · 2020-11-10T08:41:22.000+01:00
diff --git a/R/path.R b/R/path.R
@@ -21,5 +21,6 @@ path <- function(...) {
 
   out <- do.call(file.path, components)
   out[missing] <- NA_character_
+  Encoding(out) <- "UTF-8"
   out
 }

Original file line number	Diff line number	Diff line change
`@@ -21,5 +21,6 @@ path <- function(...) {`
`21`	`21`
`22`	`22`	`out <- do.call(file.path, components)`
`23`	`23`	`out[missing] <- NA_character_`
	`24`	`+ Encoding(out) <- "UTF-8"`
`24`	`25`	`out`
`25`	`26`	`}`