如何在 R Leaflet 标记弹出窗口中调整大图像的大小？

Question

我的代码：

library(leaflet)

df   <- as.data.frame(read.csv("arts.csv"))
file <- as.character(df$url)

leaflet() %>% addTiles() 
          %>% addMarkers(data = df, lng = ~lon, lat = ~lat, 
                         popup = paste0("<img src = ", file, ">")) 
          %>% popupOptions(maxWidth = "auto")

我使用了这里的一些代码片段：

我的问题是：如何轻松调整弹出窗口中出现的大图像的大小？

问题说明：

例如，我想缩小这张 Cave Rapa Nui 的照片以适合弹出窗口。

提前致谢！

Answer 1

您可以使用 HTML width 属性调整大小。

将上面的代码编辑为例如

map <- leaflet() %>% 
           addTiles() %>%
           addMarkers(data = df,
                      lng = ~lon,
                      lat = ~lat,
                      popup = paste0("<img src = ", file, " width = 300>"))

map  # print the map

如何在 R Leaflet 标记弹出窗口中调整大图像的大小？

How to resize large images in R Leaflet marker popups?

r

leaflet

r-leaflet