Salida de archivo UTF-8 en R

Estoy usando R 2.15.0 en Windows 7 de 64 bits. Me gustaría enviar texto Unicode (CJK) a un archivo.

El siguiente código muestra cómo un carácter Unicode enviado para escribir en una conexión de archivo UTF-8 no funciona como se esperaba (I):

rty <- file("test.txt",encoding="UTF-8")
write("在", file=rty)
close(rty)
rty <- file("test.txt",encoding="UTF-8")
scan(rty,what=character())
close(rty)

Como se muestra en la salida de escaneo:

Read 1 item 
[1] "<U+5728>"

El archivo no se escribió con el propio carácter UTF, sino con algún tipo de recuperación compatible con ANSI. ¿Puedo hacer que funcione correctamente la primera vez (es decir, con un archivo de texto que tenga "在" en su lugar), o puedo hacer algo de magia extra para convertir la salida a Unicode con el carácter adecuado para reemplazar la cadena de código?

Gracias.

[Más información: el mismo código se comporta.correctamente en Cygwin, R 2.14.2, mientras que 2.14.2 en Win7 también está roto. ¿Esto está en mi final en alguna parte?]

Respuestas a la pregunta(5)

Su respuesta a la pregunta