R导出leaflet地图为HTML后如何正常显示本地弹窗图片

问题原因 #

该问题核心是图片路径的加载限制：

• RStudio预览时运行在本地R服务环境下，可直接读取你写的C盘绝对路径下的本地图片，所以显示正常
• 导出为独立HTML文件后，浏览器出于安全策略限制，无法直接访问本地磁盘的绝对路径资源，因此图片加载失败显示灰色

解决方法 #

方案1（最稳妥，支持HTML单独分享） #

给popupImage函数添加embed = TRUE参数，该参数会自动把图片转成base64编码直接嵌入到HTML文件中，无需依赖外部图片文件。如果图片体积较大，嵌入后会增加HTML文件的整体体积，可根据需求选择。
修改后的代码如下：

library(leaflet)
library(leafpop)

data <- data.frame(lat = as.numeric(c("39.16", "39.46")),   long = as.numeric(c("-76.62", "-76.63")))

images <- c("C:/Users/local/img1.png",
            "C:/Users/local/img2.png")

map <- leaflet(data) %>%
  addTiles() %>%
  addCircleMarkers(fillOpacity = 0.8, radius = 5,
                   lng = ~long, lat =~lat,  popup = popupImage(images, embed = TRUE))

方案2（适合多图片场景，避免HTML体积过大） #

把所有用到的图片和导出的HTML文件放在同一个文件夹下，把图片路径改成相对路径。比如你把HTML导出到C:/Users/local/文件夹，图片也放在这个文件夹里，那路径就改成c("img1.png", "img2.png")即可，不要写完整的C盘开头的绝对路径。

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