如何在Quarto+RevealJS中将R/Stan代码块拆分到两张幻灯片？

方案1：利用代码块的echo参数指定行范围拆分 #

这是最直接的方法，既保证代码完整执行，又能精准控制每张幻灯片显示的内容：

1. 先定义一个隐藏的代码块，完整执行你的大型函数但不显示：

```{r long-function, echo=FALSE}
# 完整的大型函数代码
my_complex_func <- function(data) {
  # 第一部分代码
  cleaned_data <- na.omit(data)
  transformed_data <- scale(cleaned_data)
  
  # 第二部分代码
  model <- lm(y ~ ., data = transformed_data)
  summary_stats <- summary(model)
  
  # 更多代码...
}

2. 在第一张幻灯片中，调用这个代码块并指定显示前若干行：
```r
```{r long-function-part1, ref.label="long-function", echo=1:6}

3. 插入幻灯片分隔符`---`，然后在第二张幻灯片中显示剩余行：
```r
```{r long-function-part2, ref.label="long-function", echo=7:12}

- 原理：`ref.label`会复用指定代码块的内容，`echo=行号范围`控制只显示对应行，而后台会完整执行整个函数，不会影响后续代码的运行。
- 优势：完全适配PDF打印，没有滚动问题，代码逻辑连贯。

### 方案2：手动拆分代码块并保持执行连续性
如果不想用`ref.label`，也可以直接拆分代码块，用`eval=TRUE`保证函数完整执行：

第一张幻灯片：
```r
```{r func-part1, eval=TRUE}
my_complex_func <- function(data) {
  # 第一部分代码
  cleaned_data <- na.omit(data)
  transformed_data <- scale(cleaned_data)

---

第二张幻灯片：
```r
```{r func-part2, eval=TRUE}
  # 第二部分代码
  model <- lm(y ~ ., data = transformed_data)
  summary_stats <- summary(model)
}

- 注意：两个代码块的`eval`都设为`TRUE`，R会自动将它们拼接为完整的函数执行，变量依赖关系也能正常传递。

### 为什么`knitr::asis_output("\n\n---\n\n")`没生效？
在代码块内部，`knitr::asis_output`的输出会被当作代码运行的控制台结果，而非幻灯片的语法标记。幻灯片分隔符必须放在代码块**外部**才能被解析，这种方式反而容易打乱代码逻辑，不如上面的方案可靠。

内容的提问来源于stack exchange，提问作者user3738150