如何防止传单地图在闪亮的应用程序中重置缩放？

我自己和其他人构建了一个在线应用程序的原型，以帮助交通规划者优先考虑自行车道的新资金：

https://robinlovelace.shinyapps.io/fixMyPath/ https://robinlovelace.shinyapps.io/fixMyPath/

我们对结果很满意，并且对 Shiny 无需编写一行 JavaScript 即可快速构建 Web 部署概念原型的能力印象深刻。但是，该应用程序有一个主要问题，您会在放大然后调整透明度滑块时看到：每次执行此操作时，缩放都会重置。因此，问题很简单：如何重写server.R https://github.com/nikolai-b/hackMyRoute/blob/master/R/fixMyPath/server.R这样地图就不会重置其缩放设置？

整个应用程序可以在下面的链接中看到，并且应该可以在任何 R 安装上重现，前提是您有正确的软件包（例如 rgdal、leaflet、ggmap）：

https://github.com/nikolai-b/hackMyRoute/tree/master/R/fixMyPath https://github.com/nikolai-b/hackMyRoute/tree/master/R/fixMyPath

有关更多上下文，请参阅here http://robinlovelace.net/r/2015/02/01/leaflet-r-package.html.

我有同样的问题，我想我找到了一些有用的东西：

使用以下命令更改生成地图的方式LeafletProxy如上所述在 R 页面的传单上 http://rstudio.github.io/leaflet/shiny.html并显示在此处超级拉链示例 https://github.com/rstudio/shiny-examples/tree/master/063-superzip-example。首先，尝试设置您的renderLeaflet像这样的函数：

output$map = renderLeaflet(leaflet() %>% 
  addTiles(urlTemplate = "http://{s}.tile.thunderforest.com/cycle/{z}/{x}/{y}.png") %>%
  setView(...) # add the parameters as appropriate set the view or use fitBounds  

然后使用一个observe功能与LeafletProxy像这样画直线和圆：

observe({
  leafletProxy("map") %>%
  clearShapes() %>%
  addPolygons(layerId= "layer1"
            , data = leeds
            , fillOpacity = 0.4
            , opacity = (input$transp_zones)*.4
            , fillColor = leeds$color_pcycle
  ) %>%
  addPolyLines(layerId = "layer2"
             , data = lfast, color = "red"
             , opacity = input$transp_fast
             , popup = sprintf("<dl><dt>Distance </dt><dd>%s km</dd><dt>Journeys by bike</dt><dd>%s%%</dd>", round(flows$fastest_distance_in_m / 1000, 1), round(flows$p_cycle * 100, 2))
  ) %>%
# and so on in a similar fashion for the rest of your shapes

})

您需要添加图层 ID，以确保在更改参数时新形状替换旧形状。这样你就不需要mapOptions(zoomToLimits = "first")你有过。