ruso - Salida de codificación cirílica en R

leer ruso

Question

La codificación siempre es un dolor para mí, y de nuevo es imposible escribir un archivo con texto en ruso. ¿Qué debería hacer para esto?

 >test = c("привет","пока")
>test
[1] "/320/277/321/200/320/270/320/262/320/265/321/202" "/320/277/320/276/320/272/320/260"
>Encoding(test)
[1] "unknown" "unknown"
> f = file("test.txt", encoding = "UTF-8")
> write(t,f)
Error in cat(list(...), file, sep, fill, labels, append) :
argument 1 (type ''closure'') cannot be handled by ''cat''
> Encoding(test) = "UTF-8"
> test
[1] "<U+043F><U+0440><U+0438><U+0432><U+0435><U+0442>" "<U+043F><U+043E><U+043A><U+0430>"
> write(t,f)
Error in cat(list(...), file, sep, fill, labels, append) :
argument 1 (type ''closure'') cannot be handled by ''cat'' 

Yo uso R-studio 0.97.312, Mac OS 10.7.5,

Answer 1

Conozco tu dolor por los problemas de codificación :( Espero que esto te ayude:

 > Sys.setlocale(,"ru_RU")
[1] "ru_RU/ru_RU/ru_RU/C/ru_RU/C"
> test = c("привет","пока")
> write(test, file="test.txt")

Incluso puede usar variables cirílicas después de ese Sys.setlocale(,"ru_RU") :

 > привет <- rnorm(100)
> min(привет)
[1] -2.54578

Так что удачи! :)

Answer 2

Si solo visita la página de ayuda de Encoding () encuentra la función nativa enc2native (x), esto hará el truco como en

test = enc2utf8(c("привет","пока"))