3

每当鼠标指针悬停在传单地图上时，浏览器都不会向上或向下滚动。即使我将 minZoom 和 maxZoom 附加到相同的值，也会发生这种情况。有针对这个的解决方法吗？

php.poverty.map.2009 <-
leaflet(options = leafletOptions(minZoom = 12, maxZoom = 12)) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = php.df.polygon.2009, 
          fillColor = ~php.pal.2009(percent), 
          color = "#b2aeae", # must use hex colors
          fillOpacity = 0.7, 
          weight = 0.3, 
          smoothFactor = 0.2,
          popup = php.popup.2009) %>%
addLegend(pal = php.pal.2009, 
        values = php.df.polygon.2009$percent, 
        position = "bottomright", 
        title = "Percent of Households <br> Living below Poverty <br> (Census, 2009)",
        labFormat = labelFormat(suffix = "%"))
php.poverty.map.2009
4

3 回答 3

3

在我第二次尝试回答这个问题时，我遇到了leaflet.extras在 R 中实现一系列传单插件的包。其中一个是Leaflet.Sleep可以通过将suspendScroll()函数添加到 R 中的传单地图来实现的插件。

基本示例

首先，leaflet.extras使用devtools::install_github('bhaskarvk/leaflet.extras').

library(leaflet)
library(leaflet.extras)

leaflet() %>%
    addProviderTiles("CartoDB.Positron") %>%
    suspendScroll()

有关示例，请参见此页面。

于 2017-06-02T08:39:51.580 回答
2

Leaflet 地图有一个记录scrollWheelZoom选项，允许您禁用滚轮交互（但仍然允许其他方式来缩放地图，例如缩放按钮）。

在纯 Javascript 中，它的使用类似于var map = L.map({ scrollWheelZoom: false }). 我不精通 R，但你应该尝试leaflet(options = leafletOptions(scrollWheelZoom = false))或变体。

于 2017-06-01T17:39:27.540 回答
1

我认为您的缩放选项可能需要进入 providerTiles 函数。IEaddProviderTiles("CartoDB.Positron", options = providerTileOptions(minZoom=12, maxZoom=12))

于 2017-05-31T19:18:13.073 回答