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

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")

我在这里使用了一些代码片段：Image in R Leaflet marker popups

我的问题是:如何轻松地调整弹出窗口中显示的大图像的大小？

问题的幻觉：

​

例如，我想要使这张洞穴拉帕努伊的照片更小，以适应弹出窗口。

提前谢谢你！

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

​

​