write / writeLines到多个连接（例如控制台输出和日志文件）

Question

我使用writeLines()创建日志文件，但我也希望在控制台中看到写入日志文件的文本。有没有办法定义将文本写入文件并同时在控制台中打印文本的连接？

类似的东西：

con1 <- file("log.txt", "w")
con2 <- console()

writeLines("Lorem ipsum dolor sit amet", con=c(con1, con2))

close(con1)

到目前为止，我的解决方案还需要一些额外的工作线来完成。

con1 <- file("log.txt", "w")

log.txt <- "Lorem ipsum dolor sit amet"

writeLines(log.txt)
writeLines(log.txt, con=con1)

close(con1)

我想知道是否有更简单的方法。

Answer 1

您可以将split参数用于sink()。例如，

con1 <- file("log.txt", "w")
sink(con1, split = TRUE)
log.txt <- "Lorem ipsum dolor sit amet"
writeLines(log.txt)
sink()  # back to normal