R,knitr和source函数：如何保留html报告的源文件注释

R控制台：当我调用source(“file_of_functions.R”,echo = TRUE)时,所有源文件表达式(包括注释)都会打印到控制台.

编织HTML：当我在一个块中放入源(“file_of_functions.R”,echo = TRUE)并编织为html时,除了注释之外,打印相同的输出.

为了清楚我的代码和报告,我希望源文件的注释包含在html报告中.

有什么建议？

基本示例：将以下内容另存为f.R：

# function to add a number to itself
f <- function(x) x+x
f(2)

在控制台中,调用源(“f.R”,echo = TRUE)打印：

06001

编织到html时,通话

```{r}
source("f.R",echo=TRUE)
```

产生相同的输出但没有评论.

解决方法

test.Rmd

---
output: html_document
---

```{r}
options(prompt = '> ')
```

```{r}
source('./test.r',echo = TRUE)
```

```{r}
source('./test.r',echo = TRUE,keep.source = TRUE)
```