Đây là mã hiển thị vấn đề:
myPath = getwd()
cat("abcd",append = T, file =paste(myPath,"temp1.html", sep = "\\")) # Điều này ổn
cat("
",append = T, file =paste(myPath,"temp1.html", sep = "\\")) # Điều này ổn
cat("שלום",append = F, file =paste(myPath,"temp1.html", sep = "\\")) # Văn bản này bị cắt xén khi mở html bằng google chrome trên windows 7.
cat("שלום",append = F, file =paste(myPath,"temp1.txt", sep = "\\")) # nhưng nếu tôi mở tệp này trong trình soạn thảo văn bản - văn bản trông vẫn ổn
# Văn bản trong thư mục HTML sẽ trông như thể tôi sẽ chạy nó ở đâu trong R:
(x <- iconv("שלום", từ = "CP1252", đến = "UTF8") )
# Nhưng nếu tôi thử đặt nó vào tệp, nó sẽ không đưa bất cứ thứ gì vào:
cat(x,append = T, file =paste(myPath,"temp1.html", sep = "\\")) # trống
biên tập:Tôi cũng đã thử sử dụng mã hóa sau (không thành công)
ff <-file(paste(myPath,"temp1.html", sep = "\\"), mã hóa="CP1252")
cat("שלום", nối thêm = F, file =ff)
ff<-file(paste(myPath,"temp1.html", sep = "\\"), mã hóa="utf-8")
cat("שלום", nối thêm = F, file =ff)
ff<-file(paste(myPath,"temp1.html", sep = "\\"), mã hóa="ANSI_X3.4-1986")
cat("שלום", nối thêm = F, file =ff)
ff<-file(paste(myPath,"temp1.html", sep = "\\"), mã hóa="iso8859-8")
cat("שלום", nối thêm = F, file =ff)
Có gợi ý gì không? Cảm ơn.
Tôi là một lập trình viên xuất sắc, rất giỏi!