我有月度报告生成器，它可以在块内的 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()