r - 如何在循环中向传单 map 添加多个提供者图 block

Question

我要生成一系列addProviderTiles添加到 leaflet map 。考虑以下矢量是我想要添加到传单对象的提供者图块的情况。

providers <- c("Stamen.TonerLite", "Stamen.Watercolor", "CartoDB.Positron", "Acetate.terrain")

我试过了:

pTiles <- lapply(providers, addProviderTiles)

但我遇到了错误:

 Error in map$dependencies : $ operator is invalid for atomic vectors

在我的应用程序中，我可能有任意数量的提供者图块或图层要添加到 map 中，因此自动生成传单 map 很重要，而不是硬输入，例如:

leaflet() %>%
    addProviderTile(x) %>%
    addProviderTile(y) ... 

Answer 1

怎么样:

providers <- c("Stamen.TonerLite", "Stamen.Watercolor", "CartoDB.Positron", "Acetate.terrain")
map = leaflet()
for(i in 1:length(providers)){
    map = map %>% addProviderTiles(providers[i], group = providers[i])
}

map = map %>% addLayersControl(
        baseGroups = providers,
        options = layersControlOptions(collapsed = FALSE))

map