R/export_png.R

In insee-psar-at/oceanis-package: Cartography for Statistical Analysis

export_png <-
function(map,chemin,nomFichier)
  {
  url <- gsub("\\\\", "/", tempfile(fileext = ".html"))
  
  htmlwidgets::saveWidget(widget = map,
                          file = url)
  
  webshot::webshot(url = url,
                   file = paste0(chemin,"/",nomFichier,".png"))
  }