我正在尝试在内部创建一些动态rmd
内容的选项卡。
这个没有用。
像这样:
---
title: "1"
output: html_document
---
```{r }
library(highcharter)
library(tidyverse)
iris %>%
dplyr::group_split(Species) %>%
purrr::map(.,~{
# create tabset for each group
..1 %>%
hchart("scatter", hcaes(x = Sepal.Length, y = Sepal.Width))
})
```
您可以使用设置results = 'asis'
knitr选项以在地图功能中生成选项卡cat
。
获取Highcharter
与工作asis
很棘手:
Highchart
需要在块之前调用一次asis
,可能是正确初始化,因此是第一个空图表。asis
大块中打印图表,HTML输出将以以下character
格式发送:cat
尝试这个:
---
title: "Test tabs"
output: html_document
---
`r knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, cache = F)`
```{r}
library(highcharter)
library(tidyverse)
# This empty chart is necessary to initialize Highcharter in the tabs
highchart(height = 1)
```
```{r, results = 'asis'}
cat('## Tabs panel {.tabset} \n')
invisible(
iris %>%
dplyr::group_split(Species) %>%
purrr::imap(.,~{
# create tabset for each group
cat('### Tab',.y,' \n')
cat('\n')
p <- hchart(.x,"scatter", hcaes(x = Sepal.Length, y = Sepal.Width))
cat(as.character(htmltools::tagList(p)))
})
)
```
请注意,尽管此解决方案效果很好,但它已超出了最初用于asis
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句