使用R中的图标保存传单输出映射

时间:2017-03-08 01:03:34

标签: javascript r leaflet

我正在尝试导出为png,jpg或ANY格式,可以保存,通过电子邮件发送等,这是一个简单的传单地图,其中包含一个由jpg文件制作的图标。我根据htmlwidgets或mapview等建议尝试的每个方法都给了我一个只有灰色背景上的图标的文件(地图图层已经消失)。然后发生一些奇怪的事情。即使我摆脱了自定义图标(来自我的jpeg),现在我得到带有蓝色默认图标的灰色背景,仍然没有地图。

我在How to save Leaflet in R map as png or jpg file?尝试了所有解决方案,我最多只获取图标图层,但没有地图。

library(leaflet)

anna1Icon <- makeIcon(
  iconUrl = "pic.jpg",
  iconWidth = 2*31*215/230, iconHeight = 2*31,
  iconAnchorX = 2*31*215/230/2, iconAnchorY = 2*16
)

my_map <- leaflet() %>% 
  addTiles() %>%
  addMarkers(lat=44, lng=-93, popup="House", icon = anna1Icon)

解决方案尝试1:

library(mapview)
mapshot(my_map, file = 'file.png')

解决方案尝试2:

library(htmlwidgets)
saveWidget(my_map, file="temp.html", selfcontained = FALSE)
webshot("temp.html", file = "output.png",
        cliprect = "viewport")

帮助,谢谢!

1 个答案:

答案 0 :(得分:0)

添加声明:     addProviderTiles(提供商$ OpenStreetMap的)

library(leaflet)

anna1Icon <- makeIcon(
  iconUrl = "pic.jpg",
  iconWidth = 2*31*215/230, iconHeight = 2*31,
  iconAnchorX = 2*31*215/230/2, iconAnchorY = 2*16
)

my_map <- leaflet() %>% 
  addTiles() %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addMarkers(lat=44, lng=-93, popup="House", icon = anna1Icon)


library(htmlwidgets)
saveWidget(my_map, file="temp.html", selfcontained = TRUE)

这是另一个有同样问题的问题: saving R leaflet map as html: tiles not included