html - 使用浏览器打开 .html（= .Rmd 输出）时，Leaflet Layer Tiles 不可切换

Question

几天来，基本图层图块“OSM”和“Stamen.TonerLite”（我已经使用一年多来作为我的地图的标准图块）没有正确显示 - 即无法再在它们之间切换.

只要地图在 RStudio 和 RStudio Viewer 中显示，一切都会完美运行。但是，只要我在浏览器中打开 .Rmd 输出的相应 .html 文件（我尝试过 chrome、Internet Explorer、Edge 和 firefox），就无法再在图块之间切换。显示“OSM”，我无法切换到“Stamen.TonerLite”，反之亦然。
我尝试了不同的图层图块或超过 2 个图层图块，但结果相同。即使我切换到其他图层，也总是只有一层可见。

我的案例的可重现示例：

---
title: "stackoverflow"
author: " "
date: " "
output: html_document
---

```{r, echo = T}
library(leaflet)

m <- leaflet() %>%
     addTiles(group = "OSM") %>%
     addProviderTiles("Stamen.TonerLite") %>%
     addLayersControl(baseGroups = c("OSM", "Stamen.TonerLite")) %>%
     addCircleMarkers(lat = 47.4,
                      lng = 9.37,
                      radius = 10,
                      fillOpacity = 1.0)
m
```

Answer 1

试试这个，重点是将两个提供者图块通过管道传递给 addTiles() 参数

---
title: "stackoverflow"
author: " "
date: " "
output: html_document
---

```{r, echo = T}
library(leaflet)

m <- leaflet() %>%
 addTiles() %>%
 addProviderTiles(providers$OpenStreetMap, group = "OSM") %>%
 addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
 addLayersControl(baseGroups = c("OSM", "Toner Lite")) %>%
 addCircleMarkers(lat = 47.4,
                  lng = 9.37,
                  radius = 10,
                  fillOpacity = 1.0)
m
```