R 为什么{.tabset}不能与htmltools:：tagList一起使用？

内容看起来不错，只是有些“普通”部分没有选项卡。我也试过：

• 使用

  cat（paste0（“####Number”，i，“{.tabset}\n”）

  而不是

  htmltools:：h3（…）

• 在

  htmltools:：h3

最小可复制示例：

---
title: "Test"
author: "SQC"
date: "11 Juli 2019"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(leaflet)
ranges <- paste0("section_", c(1:3))
```

# Title level 1

```{r, echo=FALSE, results='hide'}
html <- list()
for (i in 2:3) {
  html <- c(html, 
            list(htmltools::h3(paste0("Number ", i, "\n")),
                 leaflet() %>%
                   addTiles() %>%
                   addProviderTiles(providers$OpenStreetMap, group = "OSM") %>%
                   addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
                   addLayersControl(baseGroups = c("OSM", "Toner Lite")) %>%
                   addCircleMarkers(lat = 47, lng = 9, popup = ranges[i])))
}
```

## Title level 2 with tabset {.tabset}

```{r echo=FALSE}
htmltools::tagList(html)
```

---
标题：“测试”
作者：“SQC”
日期：“2019年6月11日”
输出：html\u文档
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=FALSE）
图书馆（单张）
范围%
addProviderTiles（提供者$Stamen.TonerLite，group=“Toner Lite”）%>%
addLayersControl（基本组=c（“OSM”、“Toner Lite”））%>%
addCircleMarkers（lat=47，lng=9，popup=ranges[i]））
}
```
##标题级别2，带tabset{.tabset}
```{r echo=FALSE}
html工具：：标记列表（html）
```