使传单地图移动响应

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 here。它在桌面上看起来很好，但在移动设备上它反应不佳：标记仍然太小等。 你知道如何让传单移动响应吗？我可以修改R-leaflet创建的javascript中的sometihng吗？

谢谢， 雅格布

Answer 1

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