r - 如何在Windows R上的Unix行尾写入文件

Question

我有一个R脚本，可以在Windows上创建一个文本文件。

我同时使用write.table和write函数来写入文件。

然后，我需要在Unix系统上使用此文件，但是该文件具有Windows的行尾字符(^ M)。

是否可以在Windows上用Unix的行尾字符写R文件？

编辑

这是一个可重现的示例:

output.file <- file.path("./test.txt")

x <- c(1,2,3,4)
y <- c(5,6,7,8)
my.df <- data.frame(x, y)
my.df[] <- lapply(my.df, sprintf, fmt = "%14.7E")

write("First line", file = output.file)
write("Second line", file = output.file, append = TRUE)
write.table(my.df,
            row.names = FALSE,
            col.names = FALSE,
            file = output.file,
            quote = FALSE,
            append = TRUE,
            sep = "")

结果，如NotePad++所示:

Answer 1

如help(write.table)中所述:

To write a Unix-style file on Windows, use a binary connection e.g. file = file("filename", "wb").

在您的示例中，只需更改第一行以在最后打开 "wb"连接和 close文件:

output.file <- file("./test.txt", "wb")

x <- c(1,2,3,4)
y <- c(5,6,7,8)
my.df <- data.frame(x, y)
my.df[] <- lapply(my.df, sprintf, fmt = "%14.7E")

write("First line", file = output.file)
write("Second line", file = output.file, append = TRUE)
write.table(my.df,
            row.names = FALSE,
            col.names = FALSE,
            file = output.file,
            quote = FALSE,
            append = TRUE,
            sep = "")

close(output.file)