R/export_jpeg.R

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

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