相关疑难解决方法(0)

我找到了几个例子（如何使用 R 提取 SQL 文件的内容， 使用循环在 rmarkdown 中生成文本部分，使用 R在 Rmarkdown中 自动生成预格式化文本），但在我的情况下没有一个适用于嵌套部分，包括数字. 预期输出：

看来，我需要某种方法来处理包含的代码块（例如cat("```{r, fig.width=8.4, fig.height=7}\n") ... cat("```\n")正确处理，但我找不到方法。

编辑：我在这里找到了这个，但仍然无法使它工作

kexpand <- function(chunkname, fig.width, fig.height) {
  cat(knitr::knit(text = knitr::knit_expand(text = 
     sprintf("```{r %s, fig.width=%s, fig.height=%s}\n.chunk_code\n", 
             chunkname, fig.width, fig.height))))
}

然后在块中：

  .chunk_code <- leaflet() %>%
    addTiles() %>%
    addProviderTiles(providers$OpenStreetMap, group = "OSM") %>%
    addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
    addLayersControl(baseGroups = c("OSM", "Toner Lite")) %>%
    addCircleMarkers(lat = 47, lng = 9, popup = ranges[i]) …