Question

我生成一个highcharts对象和标签列表。然后我想把它渲染成一个html页面。

我无法弄清楚如何在一个简单的循环中完成它。

如果我一个接一个地做，那就行了，但不能用于。

以下是一个例子：

---
output: 
  html_document
---

``` {r, echo=FALSE, results='asis'}
library(highcharter)

out<-list(gr1=highcharts_demo(),gr2=highcharts_demo())

cat("

Column {.tabset}
-----------------------------------------------------------------------

")

cat("

###A1

"
)
out[[1]]

cat("

###A2

"
)
out[[2]]

for (i in c(1,2) )
{
  cat(paste0("

###","B",i,"

"
))
  out[[i]]
}
```

我用编织器在RStudio中编译它。

前两个标签只有图表，而不是最后两个...

我尝试将显式打印或显示，在循环中添加\ n。没有运气。

有什么想法吗？非常感谢你的帮助。

Answer 1

要扩展我的评论：你可以将每个[[i]]项放在tagList中，然后打印出来。你的循环将成为

for (i in c(1,2) )
{
  cat(paste0("

###","B",i,"

"
))
  print(htmltools::tagList(out[[i]]))
}

在Rmarkdown中渲染一个highcharts列表

1 个答案: