当 RMarkdown 中的 eval=FALSE 时禁止注释 (#)

Question

我想使用一个冗长的数据框，但只在我的幻灯片中显示它的一部分。

```{r}
df1 = data.frame(x = rnorm(100), y = rnorm(100))
df1
```

正如您可能猜到的那样，这会产生不适合演示幻灯片的输出。

```{r eval=-2, echo=-3}
df1 = data.frame(x = rnorm(100), y = rnorm(100))
df1
head(df1)
```

这会产生：

df1 = data.frame(x = rnorm(100), y = rnorm(100))
## df1

x       y
1  0.7699 -0.1683
2 -0.4756  0.3885
3 -0.6744  1.2755
4 -0.8533 -2.1271
5 -1.9129 -1.2661
6 -0.4567  0.5607

但我不希望第二个代码行被注释掉。目前，我能想到的唯一方法是在两个单独的代码块中，因为eval=FALSE 在应用于整个代码块时不会导致注释代码。

这会产生我想要的：

```{r eval=FALSE}
df1 = data.frame(x = rnorm(100), y = rnorm(100))
df1
```

```{r echo=FALSE}
df1 = data.frame(x = rnorm(100), y = rnorm(100))
head(df1)
```

但显然，如果我更改代码，我必须在两个地方进行更改。这是一个简单的示例，但对于更复杂的代码，我的代码和结果在我编辑它时变得不同步的风险更大。

Answer 1

试试这个：

```{r include = FALSE}
library(knitr)
op <- knit_hooks$get()$source
knit_hooks$set(source = function(x, options) op(if(is.numeric(options$eval)) x[options$eval] else x, options))
```

```{r eval=-2, echo=-3}
df1 = data.frame(x = rnorm(100), y = rnorm(100))
df1
head(df1)
```

这适用于简单的情况，但如果要结合echo 和eval，则需要进行改进。