1
私は地図上にポリゴンのヒートマップをオーバーレイし、ユーザーの入力に応じてそれをズームすることができます。Rの光沢のあるリーフレットのaddPolygonsが反応性を損なう
ヒートマップを削除するとコードが正常に機能します。ユーザーは、（ドロップダウンリストに基づいて）ある場所から別の場所に飛び回ることができます。それは完全に最初の時間を働くポリゴンで
、
2番目のドロップダウンの選択肢が無いポリゴンで表示するにはちょうどマップを引き起こし、場所が移動しない、
と第三のドロップダウン選択は何も示していません。
output$HMmapstation <- renderLeaflet({
x <- NA
x <- input$HMstation #picking the place to view
x <- leaflet_map %>% setView(preloaded_stations[which(preloaded_stations$name == x),]$longitude,
preloaded_stations[which(preloaded_stations$name == x),]$latitude,
zoom = 14) %>% clearShapes()
x <- x %>% addPolygons(data=polys_dat, color = ~pal([email protected]),
smoothFactor=.1, stroke = FALSE, fillOpacity = 0.1)
x
})
リーフレットマップをグローバルに、サーバ上に作成し、以下のようになっている。
leaflet_map <- (leaflet() %>%
addProviderTiles("OpenStreetMap.BlackAndWhite",
options = providerTileOptions(noWrap = TRUE,minZoom=9)) %>%#~pal(seq(1,537,1))~rainbow(50, start=0,end=.3, alpha = NULL)
setMaxBounds(-0.715485, 51.252031, 0.514984, 51.745313))
私はちょうどそれが一度に動作してから停止する理由を把握するように見える傾けます。特にポリゴンがなければ、期待どおりに動作します。
あなたが私に与えることができる任意の方向性に事前に感謝します。