R的htmltools :: includeHTML不能处理传单地图吗？

Question

我尝试自动使用here中的概念，但不会显示地图。包含的html看起来还可以：

最小的可复制示例：有关html的生成，请参见下文或。

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

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(leaflet)
save_path <- paste0("C:/Temp/SO-question/")
i <- 2
```

# Title level 1

This works

```{r, echo = FALSE, results='asis'}
htmltools::includeHTML(paste0(save_path, "helper_map_", i, ".html"))
```

But this does not

```{r, echo = FALSE, results='asis'}
for (i in 2:3) {
  htmltools::includeHTML(paste0(save_path, "helper_map_", i, ".html"))
}
```

错误在哪里？有什么想法吗？

---

可复制的示例与创建地图

在“ C：/ Temp / SO-question”中创建三个文件（然后，所有内容将在不更改的情况下运行）：

• render_hmtl.R
• report_include_html.Rmd
• helper_map_html.Rmd
• helper_table_html.Rmd

不同的文件如下：

render_hmtl.R

save_path <- paste0("C:/Temp/SO-question/")
load_path <- save_path
ranges <- paste0("section_", c(1:3))

cat("render html parts...\n")
for (i in 2:length(ranges)) {
  rmarkdown::render(paste0(load_path, 'helper_map_html.Rmd'), 
                    output_dir = save_path,
                    output_file = paste0("helper_map_", i, ".html"),
                    encoding = "UTF-8", quiet = T)
  rmarkdown::render(paste0(load_path, 'helper_table_html.Rmd'), 
                    output_dir = save_path,
                    output_file = paste0("helper_table_", i, ".html"),
                    encoding = "UTF-8", quiet = T)
}

cat("render html for comparison", paste(ranges, collapse = ", "), "...\n")
rmarkdown::render(paste0(load_path, 'report_include_html.Rmd'), 
                  output_dir = save_path,
                  output_file = "report_include_html.html",
                  encoding = "UTF-8", quiet = T)

report_include_html.Rmd

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

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

# Title level 1

This is an R Markdown document. 

## Title level 2 (tab) {.tabset}

### Title level 3 (tab) {.tabset}

```{r, echo = FALSE, results='asis'}
for (i in 2:length(ranges)) {
  cat(paste0("#### Title level 4 `r ", 
             ranges[i], "` vs. `r ", ranges[i - 1], "` {.tabset}\n"))

  cat("##### Map\n")
  htmltools::includeHTML(paste0(save_path, "helper_map_", i, ".html"))

  cat("##### Tabelle\n")
  htmltools::includeHTML(paste0(save_path, "helper_table_", i, ".html"))
}
```

### Title level 3 (tab) {.tabset}

```{r, echo = FALSE, results='asis'}
for (i in 2:length(ranges)) {
  cat(paste0("#### `r ", ranges[i], "` vs. `r ", ranges[i - 1], "` {.tabset}\n"))

  cat("##### Map\n")
  htmltools::includeHTML(paste0(save_path, "helper_map_", i, ".html"))

  cat("##### Tabelle\n")
  htmltools::includeHTML(paste0(save_path, "helper_table_", i, ".html"))
}
```

helper_map_html.Rmd

---
output: html_document
---

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

```{r, fig.width=8.4, fig.height=7}
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])
```

helper_table_html.Rmd

---
output: html_document
---

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

```{r}
DT::datatable(data.frame(x = 1, y = ranges[i], stringsAsFactors = FALSE),
              rownames = FALSE)
```

（此问题源自here）