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

Question

我有月度报告生成器，可以很好地与块内的 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_gt.R 只是 gt

mtcars %>% gt()

Answer 1

我们可以使用readLines

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