捕获多个命令的控制台输出并写入txt

Question

我知道sink()和capture.output()。不知怎的，我无法得到我想要的结果。

我的代码块

的示例

mtcars[1:2,1:2]
#this is awesome,
mtcars[1:2,1:2] %>% rowMeans(.)

我的txt文件中的所需输出：必须在我的控制台中看起来像100％：

> mtcars[1:2,1:2]
              mpg cyl
Mazda RX4      21   6
Mazda RX4 Wag  21   6
>     #this is awesome,
>     mtcars[1:2,1:2] %>% rowMeans(.)
    Mazda RX4 Mazda RX4 Wag 
         13.5          13.5

Preudocode

有这样的事情会很好：

console2txt(file="text.txt")
    mtcars[1:2,1:2]
    #this is awesome,
    mtcars[1:2,1:2] %>% rowMeans(.)
dev.off()

是否有解决方案来捕获＆＃34;脚本块的整个控制台＆＃34;。

Answer 1

通常我会使用RMarkdown.

执行此操作

---
output: rtf_document
---
```{r}
mtcars[1:2,1:2]
#this is awesome,
mtcars[1:2,1:2] %>% rowMeans(.)
```