Saving Leaflet Ausgabekarten MIT ICONS in R

Question

Ich versuche, in PNG, JPG oder JEDES Format zu exportieren, das gespeichert werden kann, per E-Mail, usw., eine einfache Prospektkarte mit einem Symbol aus einer JPG-Datei. Jede Methode, die ich aufgrund von Vorschlägen wie htmlwidgets oder mapview ausprobiert habe, gibt mir eine Datei mit nur dem Symbol auf grauem Hintergrund (map layer gone). Dann passiert etwas Seltsames. Selbst wenn ich das benutzerdefinierte Icon (von meinem JPEG) losgeworden bin, bekomme ich jetzt den grauen Hintergrund mit dem blauen Standardsymbol, immer noch keine Karte.

Ich habe jede Lösung bei How to save Leaflet in R map as png or jpg file? versucht, ich bekomme am besten die Icon-Ebene, aber keine Karte.

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) 

Lösung Versuch 1:

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

Lösung Versuch 2:

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

Hilfe, danke!

Answer 1

Fügen Sie die Anweisung: addProviderTiles (Anbieter $ 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) 

Dies ist eine weitere Frage, die das gleiche Problem: saving R leaflet map as html: tiles not included