nozma · May 17, 2017 03:55
diff --git a/file0.r b/file0.r
 df <- data.frame(a = letters[1:3],
                 b = c("あ", "い", "う"))
diff --git a/file1.r b/file1.r
 write.csv(df, "test.csv")
diff --git a/file2.r b/file2.r
 write.csv(df, "test.csv", fileEncoding = "CP932")
diff --git a/file3.r b/file3.r
 read.csv("test.csv", fileEncoding = "CP932")
diff --git a/file4.r b/file4.r
 readr::read_csv("test.csv", locale=readr::locale(encoding="CP932"))
diff --git a/file5.r b/file5.r
 readr::write_excel_csv(df, "test.csv")
	df <- data.frame(a = letters[1:3],
	b = c("あ", "い", "う"))
No results found