自动在R控制台或RSTUDIO输出中添加注释符号

Question

当前我们执行以下操作：

> head(mtcars,n=3)
               mpg cyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4     21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710    22.8   4  108  93 3.85 2.320 18.61  1  1    4    1

是否有一种调整控制台(R或rstudio(的方法，以便输出：

> head(mtcars,n=3)
#               mpg cyl disp  hp drat    wt  qsec vs am gear carb
# Mazda RX4     21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
# Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
# Datsun 710    22.8   4  108  93 3.85 2.320 18.61  1  1    4    1

Answer 1

使用reprex软件包：

library(reprex)
reprex({head(mtcars, n = 3)}, comment = "#",  venue = "so")
# Rendered reprex is on the clipboard.

结果将保存到剪贴板上，当粘贴时，结果如下：

<!-- language-all: lang-r -->
  <br/>
  head(mtcars, n = 3)
#                mpg cyl disp  hp drat    wt  qsec vs am gear carb
# Mazda RX4     21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
# Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
# Datsun 710    22.8   4  108  93 3.85 2.320 18.61  1  1    4    1