丑陋的系统选项

ptf <- function (txtToPrint,outFile){system(paste(paste(paste("echo '",cat(txtToPrint),sep = "",collapse = NULL),"'>",sep = "",collapse = NULL),outFile))}
#Prints txtToPrint to outFile in cwd. #!/bin/bash echo txtToPrint > outFile

一个简单的writeLines()是什么?

txt <- "Hallo\nWorld"
writeLines(txt, "outfile.txt")

or

txt <- c("Hallo", "World")
writeLines(txt, "outfile.txt")

为了完善可能性，你可以使用writeLines()和sink()，如果你想:

> sink("tempsink", type="output")
> writeLines("Hello\nWorld")
> sink()
> file.show("tempsink", delete.file=TRUE)
Hello
World

对我来说，使用print()似乎总是最直观的，但如果你这样做，输出将不是你想要的:

...
> print("Hello\nWorld")
...
[1] "Hello\nWorld"

我将使用cat()命令，如下例所示:

> cat("Hello",file="outfile.txt",sep="\n")
> cat("World",file="outfile.txt",append=TRUE)

然后，您可以使用R with查看结果

> file.show("outfile.txt")
hello
world

在R的新版本中，writeLines将保留文本中的返回值和空格，因此您不需要在行末包含\n，并且可以将一大块文本写入文件。这个例子也适用，

txt <- "Hello
World"
fileConn<-file("output.txt")
writeLines(txt, fileConn)
close(fileConn)

但是您也可以使用此设置简单地包含具有结构的文本(换行或缩进)

txt <- "Hello
   world
 I can 
   indent text!"
fileConn<-file("output.txt")
writeLines(txt, fileConn)
close(fileConn)

你可以用一个语句来做

cat("hello","world",file="output.txt",sep="\n",append=TRUE)