如何在knitr中获取块名称？

Question

我想根据块名称列表设置块选项“eval”。是否有在 knitr 中获取块名称的功能，例如块名？

这是我使用假函数名称“chunk_name”的最小示例。

---
output: html_document
---

```{r setup}
eval_chunks <- c('chunk1')
```

```{r chunk1, eval=chunk_name() %in% eval_chunks}
plot(cars)
```


```{r chunk2, eval=chunk_name() %in% eval_chunks}
plot(cars)
```

感谢您的任何建议。如果我的问题不清楚，请告诉我。

Answer 1

自 2012 年以来，Knitr 在块内提供标签（需要更多 Google，https://github.com/yihui/knitr/issues/73）。

这是我的示例 Rmd 文件：

---
output: html_document
---

```{r setup}
library(knitr)
eval_chunks <- c('chunk1', 'chunk3')
```

```{r chunk1, eval=opts_current$get("label") %in% eval_chunks}
print(opts_current$get("label"))
```


```{r chunk2, eval=opts_current$get("label") %in% eval_chunks}
print(opts_current$get("label"))
```


```{r chunk3, eval=opts_current$get("label") %in% eval_chunks}
print(opts_current$get("label"))
```

Answer 2

我认为这个解决方案是不完美的，因为它需要注意确保评估正确的块，但它解决了在调用钩子之前评估块选项的问题。简而言之，它不使用钩子，而是使用块选项可以是 R 表达式的事实。在这种情况下，使用了一个函数e()，它依赖于一个全局计数器变量来指示是否应该评估一个特定的块。因为块是按顺序评估的，所以这是可行的。在下面的示例中，chunk1 和 chunk3 被评估，但其他的则不被评估。

---
output: html_document
---

```{r setup}
library("knitr")
.i <- 2 # `setup` is the first chunk, so start at 2
.x <- all_labels() %in% c("chunk1", "chunk3")
e <- function(){
    d <- .x[.i]
    .i <<- .i + 1
    d
}
```

```{r chunk1, eval=e()}
x <- 1
x
```

```{r chunk2, eval=e()}
x <- 2
x
```

```{r chunk3, eval=e()}
x <- 3
x
```

```{r chunk4, eval=e()}
x <- 4
x
```