r - 如何嵌套 knit 调用以修复重复的 block 标签错误？

Question

我在调用使用 knit 的函数时遇到重复标签错误在 knit 内称呼。如果我标记 block ，问题就会消失。有没有办法调用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()在 some_function() :

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