Closed
Description
Some examples:
Sys.setlocale(, 'English') # can also try 'German_Austria'
# [1] "LC_COLLATE=English_United States.1252;LC_CTYPE=English_United States.1252;LC_MONETARY=English_United States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252"
evaluate::evaluate("'\u0161'")
# [[1]]
# $src
# [1] "'š'"
#
# attr(,"class")
# [1] "source"
#
# [[2]]
# [1] "[1] \"\u009a\"\n"
Sys.setlocale(, 'Chinese')
# [1] "LC_COLLATE=Chinese (Simplified)_People's Republic of China.936;LC_CTYPE=Chinese (Simplified)_People's Republic of China.936;LC_MONETARY=Chinese (Simplified)_People's Republic of China.936;LC_NUMERIC=C;LC_TIME=Chinese (Simplified)_People's Republic of China.936"
evaluate::evaluate("'\u0161'")
# [[1]]
# $src
# [1] "'š'"
#
# attr(,"class")
# [1] "source"
#
# [[2]]
# [1] "[1] \"<U+0161>\"\n"
Originally reported at http://stackoverflow.com/q/34096239/559676
With only sink()
and textConnection()
:
sink_test = function(locale = 'English') {
Sys.setlocale(, locale)
x = '\u0161'
y = character()
con = textConnection('y', local = TRUE, open = 'wr')
sink(con)
print(x)
sink()
y
}
sink_test()
# [1] "[1] \"歕""
The problem with this reduced example is only the wrong encoding marked:
z = sink_test()
Encoding(z)
# [1] "latin1"
iconv(z, to = 'UTF-8')
# [1] "[1] \"š\""
Metadata
Metadata
Assignees
Labels
No labels