【发布时间】：2019-12-04 16:15:55
【问题描述】：
假设我有以下 rmarkdown 代码：
---
title: "Untitled"
author: "Author"
date: "04/12/2019"
output: ioslides_presentation
---
## Slide title
```{r echo=FALSE}
plot(1:10, axes = FALSE, ty = "n")
axis(1)
## Next
axis(2)
## Next
points(1:10, 1:10)
```
在每个## Next 点上，我想输出绘图的当前状态，以便我可以按顺序显示绘图的某些部分。我的最终目标是在ioslides 演示文稿中创建后续幻灯片，其中包含顺序图，全部来自上面的代码（需要注意的是，理想情况下，我不希望后面的代码行能够影响前面的代码行，因为可能会发生以上）。
我希望它与我目前解决它的效果相同：
---
title: "Untitled"
author: "Author"
date: "04/12/2019"
output: ioslides_presentation
---
```{r setup, include=FALSE}
## Set up environment for running the code
env <- new.env()
## Source code to run, as a list of quotes
full_src <- list(
quote({
plot(1:10, axes = FALSE, ty = "n")
axis(1)
}),
quote({
axis(2)
}),
quote({
points(1:10, 1:10)
})
)
```
## Slide title
```{r echo=FALSE}
# Evaluate first set of lines
eval(full_src[[1]], envir = env)
# Reset environment so later code can't affect earlier code
rm(list = ls(envir = env), envir = env)
```
## Slide title
```{r echo=FALSE}
# Evaluate first and second set of lines
invisible(sapply(1:2, function(i) eval(full_src[[i]], envir = env)))
# Reset environment so later code can't affect earlier code
rm(list = ls(envir = env), envir = env)
```
## Slide title
```{r echo=FALSE}
# Evaluate all lines
invisible(sapply(1:3, function(i) eval(full_src[[i]], envir = env)))
```
输出的幻灯片如下所示：
但正如您所见，这很笨拙，而且不是很笼统。解决方案的重要特征是绘图的代码行尽可能靠近，并且只编写一次；理想情况下，我可以使用块选项/钩子来做到这一点。
最好的答案是保留回显添加到图表中的新代码行的能力（例如，## Next 标记之间的代码行），但仍会产生直到该点的整个图。
实现这一目标的最佳方法是什么？
编辑：另外，我希望能够将更改分组到一个绘图，而不仅仅是将每个更改输出到一个新绘图，所以fig.keep 将不起作用。
【问题讨论】：
-
Hmmmm...在文档中您可以设置块选项
fig.keep = 'all'，但是如果您希望在单独的幻灯片上输出，您可能需要单独的代码块... -
问题是
fig.keep会给我四个图，而不是三个，因为它保留了所有更改，而不仅仅是您想要的任意组（编辑以明确这一点）。 -
你有没有看到this answer 回答过类似的问题？这个问题相当老了，所以我不知道它有多相关。
-
好问题！有一个更好的方法可以做到这一点，但我刚刚在 knitr 中发现了一个错误。修复错误后，我会发布答案。
-
“我刚刚在 knitr 中发现了一个错误。我会在修复错误后发布答案。” ——谢一辉3小时前……低头看答案，3小时前回答——谢一辉。修复bug的速度真是神乎其神，一辉！加油！
标签： r r-markdown knitr