当区块代码位于外部文件中时，使用rmarkdown:：render打印gt表

我有一个月报生成器，它可以很好地处理块内的gt表，但当块的代码有一个外部源时，它就不能工作了，如下面的示例所示

主剧本

  rmarkdown::render('report.Rmd', output_file = paste0('report_', i, '.html'))

这样report.Rmd就可以很好地工作并打印gt表

---
title: "Report"
author: "Me"
date: "`r format(Sys.time(), '%d de %B de %Y')`"
output:
  html_document
---

## Test

```{r first,  echo=FALSE, message=FALSE, results='asis'}
library(tidyverse)
library(gt)

```

```{r second,  results='asis', echo=FALSE, message=FALSE}
    #source("mtcars_gt.R")

mtcars %>% gt()
```

但这样不行

---
title: "Report"
author: "Me"
date: "`r format(Sys.time(), '%d de %B de %Y')`"
output:
  html_document
---

## Test

```{r first,  echo=FALSE, message=FALSE, results='asis'}
library(tidyverse)
library(gt)

```

```{r second,  results='asis', echo=FALSE, message=FALSE}
    source("mtcars_gt.R")
```

mtcars\u gt.R就是gt

mtcars %>% gt()

---

我们可以使用

readLines

```{r code = readLines('mtcars_gt.R')}
```

---

尝试使用

readLines

`{r code=readLines（'mtcars\u gt.r'）}```太好了，它很管用。