如何阻止代码块在R Notebook的预览中拆分？

Question

```{r scatterplots, collapse=TRUE, results= 'hold'}
p1 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p2 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p3 <- ggplot(x, aes(y=f.ecdf, x=G1))+geom_point()+theme_bw()
p4 <- ggplot(x, aes(y=f.ecdf, x=G2))+geom_point()+theme_bw()
p5 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p6 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p7 <- ggplot(x, aes(y=f.ecdf, x=G1))+geom_point()+theme_bw()
p8 <- ggplot(x, aes(y=f.ecdf, x=G2))+geom_point()+theme_bw()

grid.arrange(
  p1, p2, p3, p4,
  ncol = 2
)

 grid.arrange(
   p5, p6, p7, p8,
   ncol = 2
)
```

但是在预览中，代码块在拆分后正在评估。

如何阻止这种情况的发生。基本上，我希望所有地块都可以中断。

我还可以提供什么其他信息来诊断这一点？

Answer 1

好像有一个已知的R笔记本忽略了块选项https://github.com/rstudio/rmarkdown/issues/1077，所以不确定是否有一个简单的解决方案atm。

一个临时修复程序，可能不理想，但是您可以使用大括号，例如

---
title: "R Notebook"
output: 
  html_notebook
---

```{r scatterplots, collapse=TRUE, results= 'hold'}
library(ggplot2)
library(gridExtra)
set.seed(12345)
x <- data.frame(f.ecdf=rnorm(10), P2=rnorm(10), G1=rnorm(10), G2=rnorm(10))

p1 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p2 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p3 <- ggplot(x, aes(y=f.ecdf, x=G1))+geom_point()+theme_bw()
p4 <- ggplot(x, aes(y=f.ecdf, x=G2))+geom_point()+theme_bw()
p5 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p6 <- ggplot(x, aes(y=f.ecdf, x=P2))+geom_point()+theme_bw()
p7 <- ggplot(x, aes(y=f.ecdf, x=G1))+geom_point()+theme_bw()
p8 <- ggplot(x, aes(y=f.ecdf, x=G2))+geom_point()+theme_bw()

{grid.arrange(
  p1, p2, p3, p4,
  ncol = 2
)

grid.arrange(
  p5, p6, p7, p8,
  ncol = 2
)}