Come ottenere il nome del pezzo in knitr?

Question

Desidero impostare l'opzione "eval" del blocco in base a un elenco di nomi di blocchi. Esiste una funzione per ottenere il nome del chunk in knitr, ad es. chunk_name?

Questo è il mio esempio minimo con il nome di funzione falsi "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) 
``` 

Grazie per eventuali suggerimenti. Per favore fatemi sapere se la mia domanda non è chiara.

Answer 1

Knitr fornito etichette all'interno di un pezzo dal 2012 (bisogno di più di Google, https://github.com/yihui/knitr/issues/73).

Questo è il mio file di esempio 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

Penso che questa soluzione sia imperfetta perché richiede un po 'di attenzione nell'assicurarsi che i blocchi corretti siano valutati, ma aggira il problema che le opzioni di blocco vengono valutate prima di chiamare gli hook. In breve, non utilizza un hook, ma utilizza il fatto che le opzioni del blocco possono essere espressioni R. In questo caso, viene utilizzata una funzione e() che si basa su una variabile contatore globale per determinare se un particolare blocco deve essere valutato. Poiché i blocchi vengono valutati in ordine, questo funziona. Nell'esempio seguente, chunk1 e chunk3 vengono valutati, ma gli altri no.

--- 
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 
```