创建html div'；在RMarkdown的循环中

我希望能够在

rmarkdown

中的循环中创建几个HTML div。然而，它似乎并不十分有效。我试图创建的是一个

bsplus:：bs_modal（）

，然后将这些模态附加到按钮上

最小的

.Rmd

reprex，具有预期的结果：

---
title: "Untitled"
output: html_document
---
  
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(magrittr)
```
  
```{r}
bsplus::bs_modal(id = paste0("button_", 1), title = paste0("modal ", 1), body = NULL)
bsplus::bs_modal(id = paste0("button_", 2), title = paste0("modal ", 2), body = NULL)
```
  
```{r}
bsplus::bs_button("Modal 1") %>% 
  bsplus::bs_attach_modal("button_1")
```
  
```{r}
bsplus::bs_button("Modal 2") %>% 
  bsplus::bs_attach_modal("button_2")
```

最小

.Rmd

reprex与我正在使用的方法，但它不起作用：

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

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

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

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

---

有什么想法吗？

你可以试试

htmltools:：tagList（）

---
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))
}))
```