Force UTF-8 encoding of message in swirl_out to solve WINDOWS-1252, a…

….k.a. "umlaut", problem.
EdgarOrnelas · Nov 19, 2014 · 0c007d4 · 0c007d4
1 parent ee14f20
commit 0c007d4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -4,6 +4,7 @@ swirl_out <- function(..., skip_before=TRUE, skip_after=FALSE) {
   mes <- str_c("| ", wrapped, collapse = "\n")
   if(skip_before) mes <- paste0("\n", mes)
   if(skip_after) mes <- paste0(mes, "\n")
+  Encoding(mes) <- "UTF-8"
   message(mes)
 }