ループ内のリーフレットマップに複数のプロバイダタイルを追加する方法

Question

の系列を生成してleafletマップに追加したいとします。次のベクトルが私のチラシオブジェクトに追加したいプロバイダータイルの場合を考えてみましょう。

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

私が試した：

pTiles <- lapply(providers, addProviderTiles) 

が、私はエラーと会っている：私のアプリケーションでは

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

、私はプロバイダタイルまたは層のいずれかの任意の数を有することができますこれをマップに追加したいので、チラシマップが自動的に生成され、ハードタイプでないことが重要です。例：

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