sink（）不会在rmarkdown中将输出打印到文本文件

假设我有一个简单的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中运行它（使用编织的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（）时，它总是一个。

我仍在尝试为此找到一种解决方法，因此任何帮助都将是不错的。

多次转移的示例：

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