如何在R Shiny中提高导出leaflet地图的分辨率

核心优化方法 #

• 替换导出依赖包
  原生webshot依赖已停止维护的PhantomJS，对高清瓦片、矢量元素的渲染能力不足，优先改用webshot2，它基于Chromium无头模式渲染，能完美还原leaflet地图的显示效果。
  安装命令：
  remotes::install_github("rstudio/webshot2")
  使用webshot2不需要额外安装PhantomJS，只要设备上有Chrome/Edge浏览器即可。
• 调整导出参数逻辑
  你之前只调整zoom参数但画质没提升，是因为leaflet的瓦片是按视口尺寸加载的，你需要先放大vwidth和vheight的数值，再对应调高zoom参数，这样导出的图片像素密度会成倍提升，放大后不会模糊。如果需要固定输出尺寸，可以导出后再用magick包等比例压缩到目标大小。
• 可选：使用官方mapshot函数
  mapview包提供的mapshot函数是专门针对leaflet地图导出的工具，内置了高分辨率适配逻辑，不需要手动处理临时html文件，调用更简单。

补充说明：你之前测试的几个参数无效的原因：

• leafletOptions(resolutions) 是用来定义leaflet瓦片层级的缩放分辨率阈值，和导出图片的分辨率无关
• saveWidget的knitrOptions(dpi)仅对knitr渲染的静态R绘图有效，对leaflet这类HTML动态组件没有作用
• 单独调高webshot的zoom参数仅会拉伸原有低分辨率的渲染结果，不会重新加载更高清的地图瓦片，所以画质没有提升

优化后可运行代码 #

library(shiny)
library(htmlwidgets)
library(leaflet)
library(webshot2) # 替换为webshot2

ui <- fluidPage(
  leafletOutput("map"),
  downloadButton("download")
)

server <- function(input, output, session) {
  global <- reactiveValues(map = 0)

  output$map <- renderLeaflet({
    global$map <- leaflet() %>% 
                  # 可选：替换为更高清的瓦片源，进一步提升画质
                  addProviderTiles("Stamen.Terrain") %>%
                  fitBounds(3.31497114423, 50.803721015, 7.09205325687, 53.5104033474)
  })

  output$download <- downloadHandler(filename = "map.png", content = function(file)
  {
    global$map$x$options <- append(global$map$x$options, 
                                   list("zoomControl" = FALSE))

    saveWidget(global$map, 
               "temp.html", 
               selfcontained = FALSE)

    webshot("temp.html", 
            file = file, 
            zoom = 3, # 缩放倍数对应视口放大倍数
            vwidth = 800*3, # 视口宽度放大3倍
            vheight = 555*3, # 视口高度放大3倍
            cliprect = "viewport")
    # 若需要固定800*555的输出尺寸，可取消注释以下代码：
    # library(magick)
    # image_read(file) %>% image_resize("800x555") %>% image_write(file)
  })   
}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者WJH