如何嵌套 knit 调用来修复重复的块标签错误？

Question

knit当我调用在调用内部使用的函数时，我遇到了重复标签错误knit。如果我标记这些块，问题就会消失。有没有办法some_function以不与父调用冲突的方式进行调用knit？

library(knitr)
some_function <- function(){
    knit(text ="
    ```{r }
        1
    ```
    ")
}
cat(knit(text ="
```{r }
    some_function()   
```
```{r }
    some_function()   
```
"))

输出：

```r
some_function()
```

```
## Error: duplicate label 'unnamed-chunk-1'
```

Answer 1

您可以使用knit_child()而不是knit()in some_function()：

library(knitr)
some_function <- function(){
  knit_child(text ="
    ```{r }
        1
    ```
    ")
}
cat(knit(text ="
```{r }
    some_function()   
```
```{r }
    some_function()   
```
"))