sink() 不会将输出打印到 rmarkdown 中的文本文件

Question

假设我有一个简单的 rmarkdown 文档，名为 test.Rmd

---
output: pdf_document
---

This code tries to save output to a file called 'example.txt'
```{r}
sink(file='example.txt')
sink.number()
library(MASS)
summary(cars)
sink()
sink.number()
```

如果我在 RStudio 中运行它（使用 knit PDF 按钮），那么我会得到大量输出，但我相信最重要的是以下内容（我可以根据要求包含其他输出）

processing file: test.Rmd

"C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS test.utf8.md --to latex --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output test.pdf --template "C:\Users\wammonj\Documents\R\win-library\3.2\rmarkdown\rmd\latex\default.tex" --highlight-style tango --latex-engine pdflatex --variable graphics=yes --variable "geometry:margin=1in" 
output file: test.knit.md


Output created: test.pdf
Warning message:
In sink() : no sink to remove

文件 example.txt 已创建，但输出不在那里，而 Rmarkdown 则创建了一个名为 test.pdf 的文件，summary(cars)其中包含输出。

这是问题所在吗？Rmarkdown是否使用sink()来制作其文档？有没有办法解决这个问题，以便输出同时出现在 pdf 文件和文本文件中？

---

添加：从@r2evans评论看来，rmarkdown确实使用了sink()。我玩过一点sink()，看起来你可以同时进行多个转移，但你只能写入最近激活的一个（参见下面的示例）。

因此，从输出看来，Rmarkdown 立即关闭了我的接收器，因为当我查看 sink.number() 时，它始终是 1。

我仍在努力寻找解决方法，因此任何帮助都会很好。

多次改道示例：

sink(file = 'example1.txt')
sink(file = 'example2.txt')
sink.number() # prints 2 to example2.txt
x = seq(1,10)
x # prints to example2.txt
sink()
sink.number() # prints 1 to example1.txt
y = sum(x)
y # prints to example1.txt
sink()
sink.number() # prints 0 to R console

Answer 1

我遇到了类似的问题。将输出保存到本地文件的一种解决方案是使用write.csv()函数，该函数也适用于非 csv 文件。

下面的 R 代码尝试将输出保存到名为“example.txt”的文件中。

write.csv(data.frame(data_to_save), file='example.txt')