I am wondering how to loop over highcharter charts and show them side by side in rmarkdown file
---
title: "Untitled"
output: html_document
date: "`r Sys.Date()`"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(highcharter)
library(tidyverse)
library(htmltools)
highcharter::highchart()
ls_charts <- 1:6 %>%
purrr::map(function(x){
df = tibble(name = c("a","b","c"),
a1 = sample(1:30, size = 3),
a2 = sample(1:30, size = 3))
hchart(df, type = "pie", mapping = hcaes(name, a1))
})
```
```{r echo = FALSE, results = 'asis'}
for (i in c(1, 3, 5)){
cat("Group", i, "\n")
print(htmltools::tagList(highcharter::hw_grid(ls_charts[[i]], ls_charts[[i+1]], ncol = 2, rowheight = 300)))
}
```