从代码中制作 PDF 时，使用 R Markdown HTML 同时显示代码和图像

Question

我正在创建一个R Markdown HTML 文档，我想在其中显示以下代码以及生成的绘图图像：

pdf("plot.pdf", width=6, height=4) 
plot(cars) 
dev.off()

问题在于pdf() 和dev.off() 函数。当我用echo=F 运行上面的代码时，它会抑制所有代码的显示，只在外部生成PDF而不显示任何图像。

```{r, echo=F}
pdf("plot.pdf", width=6, height=4)
plot(cars)
dev.off()
```   

当我使用eval=F 运行此代码时，它会显示代码，但显然不会生成图像。

```{r, eval=F}
pdf("plot.pdf", width=6, height=4)
plot(cars)
dev.off()
```

到目前为止，我发现的唯一解决方案是拥有两个单独的代码块 - 一个用于使用 eval=F 显示代码，另一个用于显示图像，其中我使用 echo=F 压制代码并仅使用代码进行绘图图片，PDF制作：

```{r, eval=F}
pdf("plot.pdf", width=6, height=4)
plot(cars)
dev.off()
```

```{r, echo=F}
plot(cars)
```

它不是很可持续的方法，所以我宁愿只用一个代码块来做。我尝试了谢一辉的各种ways for chunks output control，但没有任何成功。

Answer 1

如果您在 rmarkdown 中反复使用 pdf 和 dev.off 但又不想执行它们，一种解决方案是重新定义它们以不执行任何操作。

```{r,echo=FALSE}
pdf <- function(...) Sys.sleep(.1)
dev.off <- function(...) Sys.sleep(.1)

```

```{r fig.show="hold"}
pdf("plot.pdf", width=6, height=4)
plot(cars)
dev.off()
```

当然，这应该小心使用，因为它可能会弄乱文档中的其他代码。您仍然可以使用grDevices::pdf() 和grDevices::dev.off() 访问正常功能

Answer 2

这不够优雅，但您可以在块中添加第二个plot(cars) 并使用echo=-4 抑制其输出。

```{r, echo=-4, results="hide"}
pdf("plot.pdf", width=6, height=4)
plot(cars)
dev.off()
plot(cars)
```