使传单地图具有移动性

Question

我已经在R中构建了一个带有leaflet包的小册子。这里是代码的简化版本

图书馆(单张)

# dumb data
Points <- data.frame(lon = c(41.889, 41.882, 41.891), lat = c(12.455, 12.446, 12.459))

# web map
wland <- 
  leaflet(data = Points) %>% 
  addTiles() %>%
  addCircleMarkers(col = "red", 
                   fillOpacity = 1, 
                   radius = 5,
                   stroke = TRUE,
                   clusterOptions = markerClusterOptions(
                     maxClusterRadius=35, disableClusteringAtZoom=14
                   )) 

saveWidget(wland, "To:/Your/Path/map.html", selfcontained = FALSE)

我上传了html和所有的javascript here。它在桌面上看起来很好，但在移动设备上响应不好:标记仍然太小，等等。你知道如何使传单移动响应吗？我应该修改由R-leaflet创建的javascript中的某些内容吗？

谢谢，雅格布

Answer 1

这就是你所需要的。这很简单：http://leafletjs.com/examples/mobile/