如何编写一个R函数来创建一系列散布着标记的绘图

Question

我有一个函数可以生成数量可变的plotly图形，并创建R标记标头，例如

### Caption for plot

这些标题最终出现在RStudio下生成的R markdown html报告中的浮动目录中。

我知道如何使用htmltools::tagList生成在一个流中呈现所有内容的html和plotly对象序列，但是我不知道如何用markdown替换htmltools::tagList(list(plot_ly(...), HTML('caption stuff), ...))元素的htmltools::HTML('foo')部分。

Answer 1

多亏了r2evans，我的问题才有了解决方案。这里的R是一个字符向量列表，其中的每个元素都是文本和标记的混合。Pl是plotly对象的列表。nP是每个列表的长度。

bn <- paste0('c', round(runif(1, 0, 1e6)))  # base chunk name
for(i in 1 : nP) {
  cn <- paste0(bn, i)  # name of individual generated chunk
  Plti <- Pl[[i]]      # fetch i'th plotly graphic object
  k <- c(R[[i]], paste0('```{r ', cn, ',echo=FALSE}'), 'Plti', '```')
  cat(trimws(knitr::knit(text=knitr::knit_expand(text=k), quiet=TRUE)))
  }
}