R-从system（）捕获输出到txt文件。

Question

我想捕获R控制台的所有输出。我尝试使用库'TeachingDemos'的sink（）函数和txtStart（）。但是，它们都无法捕获system（）命令的输出。

例如 如果我运行以下代码：

zz <- file("log.txt")
sink(zz)
sink(zz, type = "message")
print('first layer message!!!!')
system("Rscript test1.R") #test1.R is a R script that print 'hello world'
sink(type = "message")
sink()

我可以在R控制台中看到消息“ hello world”。但是，我无法将其写入log.txt。有什么办法解决这个问题？

谢谢

Answer 1

system("Rscript test1.R", intern = TRUE)