UTF-8ファイル出力：R

Question

Windows 7 64ビット版でR 2.15.0を使用しています。私はunicode（CJK）テキストをファイルに出力したいと思います。

次のコードは、Unicode文字のように動作しないUTF-8ファイル接続上の書き込みに送られた方法を示し予想（I）：

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

：

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) 

スキャンの出力で示されているように

ファイルはUTF文字自体ではなく、ANSI準拠のフォールバックなどの形式で書き込まれています。最初に正しく動作させることができますか（代わりに「在」というテキストファイルを使用しています）、またはコード文字列を置き換える適切な文字で出力をUnicodeに変換するために余分な魔法を働かせることはできますか？

ありがとうございました。

[詳細情報：同じコードがを正しく実行します。Win7の2.14.2も、Cygwin、R 2.14.2ではが壊れています。これはどこかで私の端にある？]

Answer 1

は、テキストファイル内のUTF-8文字列を保存します：

kLogFileName <- "parser.log" 
log <- function(msg="") { 
    con <- file(kLogFileName, "a") 
    tryCatch({ 
    cat(iconv(msg, to="UTF-8"), file=con, sep="\n") 
    }, 
    finally = { 
    close(con) 
    }) 
} 

Answer 2

私はそれがオブジェクトの名前を取り、あなたがそのような名前のオブジェクトを構築持っているように見えないようにwriteが構築されているので、あなたが問題を抱えていると思います。代わりにこれを試してください：

txt <- "在" 
rty <- file("test.txt",encoding="UTF-8") 
write(txt, file=rty) 
close(rty) 
rty <- file("test.txt",encoding="UTF-8") 
inp <- scan(rty,what=character()) 
#Read 1 item 
close(rty) 
inp 
#[1] "在" 

Answer 3

DBから来たUTF-8文字列でこのような問題があります。

ファイルを正しく保存するための唯一の方法は、ファイルをバイナリモードで保存することです。

F <- file(file.name, "wb") 
    tryCatch({ 
    writeBin(charToRaw(the_utf8_str), F) 
    }, 
    finally = { 
    close(F) 
    }) 

Answer 4

問題は、（デフォルトのシステムのコーディングを使用して/またはいくつかのシステムのライトを使用して何らかのR-Windowsの特殊な動作にです関数、実際の動作はわかりません）

テキストを書き込むにはWindows上でUTF8エンコーディングを使用するには、関数liのuseBytes=Tオプションを使用する必要がありますke writeLinesまたはreadLines：