将图像调整为弹出大小以获得闪亮的传单

Question

我试图找出如何更改图像大小以使其与弹出窗口大小匹配。例如，在下图中，图像超出了弹出尺寸。有没有办法在下面的传单代码中添加脚本来解释这个问题？此外，图像尺寸太大，如何在弹出选项中调整大小，如下所示？ CSS有一个shelter1.bindPopup（）函数。有没有办法在下面的代码中加入它？

leafletProxy("map2") %>%
  clearMarkers() %>% 
  clearPopups() %>% 
  setView(lng = clng, lat = clat, zoom =11) %>% 
  addMarkers(lng = as.numeric(longitude), lat = as.numeric(latitude),
  popup = paste("<h4>", "NAME", "</h4>",
                paste0("<img src = ", imageURL, ">"), 
                "<br>"), popupOptions = popupOptions(minWidth = 500, maxWidth = 500, maxHeight = 500))