How to create bs_modal() in a loop in rmarkdown? about bsplus

[fmmattioni]

My bad, I didn't realize I should be using tagList().

Solution:

---
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(magrittr)
```

```{r results='asis'}
htmltools::tagList(lapply(1:2, function(i) {
  bsplus::bs_modal(id = paste0("button_", i), title = paste0("modal ", i), body = NULL)
}))
```

```{r results='asis'}
htmltools::tagList(lapply(1:2, function(i) {
  bsplus::bs_button(paste0("Modal ", i)) %>% 
    bsplus::bs_attach_modal(paste0("button_", i))
}))
```