Xuất UTF-8 BOM sang .csv trong R

Question

Tôi đang đọc tệp qua RJDBC từ cơ sở dữ liệu MySQL và nó hiển thị chính xác tất cả các chữ cái trong R (ví dụ: נווה שאנן). Tuy nhiên, ngay cả khi xuất khẩu bằng cách sử dụng write.csv và fileEncoding = "UTF-8", kết quả đầu ra trông giống như <U+0436>.<U+043A>. <U+041B><U+043E><U+0437><U+0435><U+043D><U+0435><U+0446> (trong trường hợp này không phải là chuỗi ở trên mà là tiếng Bungari) cho tiếng Bungari, tiếng Do Thái, tiếng Trung và vân vân. Các nhân vật đặc biệt khác như ã, ç vv làm việc tốt.

Tôi nghi ngờ điều này là vì UTF-8 BOM nhưng tôi đã không tìm thấy một giải pháp trên mạng

OS của tôi là một Windows7 Đức.

chỉnh sửa: Tôi cố gắng

con<-file("file.csv",encoding="UTF-8") 
write.csv(x,con,row.names=FALSE) 

và (afaik) tương đương write.csv(x, file="file.csv",fileEncoding="UTF-8",row.names=FALSE).

Answer 1

Trên trang trợ giúp tới Encoding (help("Encoding")), bạn có thể đọc về mã hóa đặc biệt - bytes.

Sử dụng này, tôi đã có thể tạo ra file csv bởi:

v <- "נווה שאנן" 
X <- data.frame(v1=rep(v,3), v2=LETTERS[1:3], v3=0, stringsAsFactors=FALSE) 

Encoding(X$v1) <- "bytes" 
write.csv(X, "test.csv", row.names=FALSE) 

chăm sóc mất khoảng chênh lệch giữa factor và character. Các công việc sau đây sẽ hoạt động:

id_characters <- which(sapply(X, 
    function(x) is.character(x) && Encoding(x)=="UTF-8")) 
for (i in id_characters) Encoding(X[[i]]) <- "bytes" 

id_factors <- which(sapply(X, 
    function(x) is.factor(x) && Encoding(levels(x))=="UTF-8")) 
for (i in id_factors) Encoding(levels(X[[i]])) <- "bytes" 

write.csv(X, "test.csv", row.names=FALSE) 

Answer 2

Câu trả lời được chấp nhận không giúp tôi trong một ứng dụng tương tự (R 3.1 trong Windows, trong khi tôi đang cố gắng mở tệp trong Excel). Dù sao, dựa trên một phần của tập tin tài liệu:

Nếu một BOM được yêu cầu (nó không được khuyến khích) khi viết nó nên được viết một cách rõ ràng, ví dụ bởi writeChar ("\ ufeff", con, eos = NULL) hoặc writeBin (as.raw (c (0xef, 0xbb, 0xbf)), binary_con)

tôi đã đưa ra những cách giải quyết như sau:

write.csv.utf8.BOM <- function(df, filename) 
{ 
    con <- file(filename, "w") 
    tryCatch({ 
    for (i in 1:ncol(df)) 
     df[,i] = iconv(df[,i], to = "UTF-8") 
    writeChar(iconv("\ufeff", to = "UTF-8"), con, eos = NULL) 
    write.csv(df, file = con) 
    },finally = {close(con)}) 
} 

Lưu ý rằng df là data.frame và tên tệp là đường dẫn đến tệp csv.