Этот пример кода для создания списка определений работает для меня, но только для одного списка индексов.Всякий раз, когда я пытаюсь добавить другой список (например, для теорем), работает только тот, который был определен последним в нежелательной установке.
Возможно, я неправильно адаптировал knit_hooks$set():
---
title: "Create several lists"
output: bookdown::html_document2
---
```{r setup, include=FALSE}
def_list = list()
knitr::knit_hooks$set(engine = function(before, options, envir) {
if (before && options$engine == 'definition') {
# collect definition terms from options$name
def_list[[options$label]] <<- options$name
}
NULL
})
thm_list = list()
knitr::knit_hooks$set(engine = function(before, options) {
if (before && options$engine == 'theorem') {
# collect theorem terms from options$name
thm_list[[options$label]] <<- options$name
}
NULL
})
```
```{definition, d1, name='Foo: My first definition'}
Foo is defined as ...
```
```{theorem, t1, name='My first theorem'}
First theorem ...
```
```{definition, d2, name='Bar: My second definition'}
Bar is defined as ...
```
```{theorem, t2, name='My second theorem'}
Second theorem ...
```
---
**All definitions:**
```{r echo=FALSE, results='asis'}
def_list = unlist(def_list)
cat(sprintf('- \\@ref(def:%s) %s', names(def_list), def_list), sep = '\n')
```
**All theorems:**
```{r echo=FALSE, results='asis'}
thm_list = unlist(thm_list)
cat(sprintf('- \\@ref(thm:%s) %s', names(thm_list), thm_list), sep = '\n')
```
ВЫХОД:
