Comment économiser de Notice dans la R de la carte en png ou jpg fichier?

Je suis en utilisant le Feuillet d'emballage pour créer des cartes dans R. Il fonctionne parfaitement. Je peux exporter les cartes en R avec simplement à l'Exportation, mais j'ai besoin d'exporter des cartes à partir d'un script dans R. Mon code simple est:

png("test_png.png")
(m <- leaflet() %>% addTiles())
dev.off()

Il fonctionne, mais... la sortie png fichier est vide blanc.

  • Merci, mais j'ai essayé "imprimer" et ça ne fonctionne pas. L'effet est le même: le blanc de l'image.
  • Il y a une raison, il n'est pas facile à faire: le Dépliant est une bibliothèque JavaScript pour la construction des cartes interactives pour le web. Si vous voulez une carte statique, il y a beaucoup de packages R qui les font. Lorsque vous forcer, vous êtes presque toujours primordial quelqu'un de la bien-pensée-dehors des choix de conception, et finissent généralement avec un subpar produit. Choisir le bon outil pour le travail.
InformationsquelleAutor sms | 2015-07-10
  1. 52

    Cette très belle solution de contournement émergé en réponse à une question a demandé un peu plus tard, voici DONC sur. Notez que vous devez installer PhantomJS pour obtenir le code suivant à travailler.

    ## install 'webshot' package
library(devtools)
install_github("wch/webshot")

## load packages
library(leaflet)
library(htmlwidgets)
library(webshot)

## create map
m <- leaflet() %>% addTiles()

## save html to png
saveWidget(m, "temp.html", selfcontained = FALSE)
webshot("temp.html", file = "Rplot.png",
        cliprect = "viewport")

    Et voici le résultat en image.

    Comment économiser de Notice dans la R de la carte en png ou jpg fichier?

    Mise à jour:

    Maintenant que webshot a été officiellement publié le CRAN et avec l'introduction de mapshot dans le mapview paquet, cette solution de contournement manuelle n'est plus nécessaire. Maintenant, il suffit que le code qui va comme ceci: 

    library(mapview)

## 'leaflet' objects (image above)
m <- leaflet() %>% addTiles()
mapshot(m, file = "~/Rplot.png")

## 'mapview' objects (image below)
m2 <- mapview(breweries91)
mapshot(m2, file = "~/breweries.png")

    Comment économiser de Notice dans la R de la carte en png ou jpg fichier?

    InformationsquelleAutor fdetsch