使传单地图移动响应

Question

我在 R 中构建了一个带有传单包的传单。这里是使用的代码的简化版本

图书馆（传单）

# 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 。它在桌面上看起来不错，但在移动设备上却没有很好的响应：标记仍然太小等等。您知道如何使传单移动响应吗？我应该在 R-leaflet 创建的 javascript 中修改一些东西吗？

谢谢，雅各布

Answer 1

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