Почему {.tabset} не работает с htmltools :: tagList?

Question

Контент выглядит нормально, за исключением того, что есть «нормальные» разделы без вкладок. Что я тоже пробовал:

• Используйте cat(paste0("### Number ", i, "{.tabset}\n")) вместо htmltools::h3(...)
• Найдите возможный параметр tabset = TRUE в 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)
```