捕获多个命令的控制台输出并写入 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

伪代码

如果有这样的东西就好了：

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

是否有捕获“脚本块”的整个控制台的解决方案。

Answer 1

通常我用 RMarkdown.

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