从R中的read_line()函数打印代码时，请删除括号和散列

Question

我嵌入了R脚本，而没有在RMarkdown文件中运行它们。

当我在没有运行的情况下将R中的脚本嵌入到Rmarkdown文件中，并将其编织成PDF或HTML时，每一行都包含两个散列，并用括号括起来。

我想删除这些散列和外括号。

这是在我的.Rmd文件中实现的代码：

```{r include=FALSE}
library(readr)
script1 <- read_lines("script1.R")
```
```{r echo=FALSE}
print(script1)
```

现在让我们看看script1.R的代码

# 1. Cargamos los paquetes necesarios ####
library(readODS)
library(dplyr)
library(purrr)
library(tidyr)
library(ggplot2)
library(gridExtra)
library(ggpubr)
library(readr)
# 2. Cargamos los datos desde el archivo de LibreOffice Calc ####
path <- "Data/xy_coord_div.ods"
# Creamos una lista con los datos de todos los tipos de dientes
xy_coord <- path %>%
ods_sheets() %>%
set_names() %>%
map(read_ods, skip = 1, path = path)

当我将.Rmd文件编织成HTML时，我看到的代码是这样的：

##  [1] "  # 1. Cargamos los paquetes necesarios ####"                                             
##  [2] "  library(readODS)"                                                                       
##  [3] "  library(dplyr)"                                                                         
##  [4] "  library(purrr)"                                                                         
##  [5] "  library(tidyr)"                                                                         
##  [6] "  library(ggplot2)"                                                                       
##  [7] "  library(gridExtra)"                                                                     
##  [8] "  library(ggpubr)"                                                                        
##  [9] "  library(readr)"                                                                         
## [10] ""                                                                                         
## [11] "  # 2. Cargamos los datos desde el archivo de LibreOffice Calc ####"                      
## [12] "  path <- "Data/xy_coord_div.ods""                                                      
## [13] ""                                                                                         
## [14] "  # Creamos una lista con los datos de todos los tipos de dientes"                        
## [15] "  xy_coord <- path %>%"                                                                   
## [16] "    ods_sheets() %>%"                                                                     
## [17] "    set_names() %>%"                                                                      
## [18] "    map(read_ods, skip = 1, path = path)"                                                 
## [19] ""                                       

您还可以看到，当它处理内括号时，会写入额外的符号。

转换为其他格式时，如何设置代码样式？

Answer 1

使用chunk选项comment=''去掉散列，使用cat()去掉方括号。

```{r include=FALSE}
script1 <- readLines("script1.R")
```
```{r echo=FALSE, comment=''}
cat(script1, sep = 'n')
```

或者使用xfun::file_string():一步到位

```{r echo=FALSE, comment=''}
xfun::file_string("script1.R")
```