View source: R/addPopupImages.R
addPopupImages | R Documentation |
Add image popups to leaflet layers.
addPopupImages(
map,
image,
group,
width = NULL,
height = NULL,
tooltip = FALSE,
...
)
map |
the |
image |
A character |
group |
the map group to which the popups should be added. |
width |
the width of the image(s) in pixels. |
height |
the height of the image(s) in pixels. |
tooltip |
logical, whether to show image(s) as popup(s) (on click) or tooltip(s) (on hover). |
... |
additional options passed on to the JavaScript creator function. See https://leafletjs.com/reference-1.7.1.html#popup & https://leafletjs.com/reference-1.7.1.html#tooltip for details. |
A leaflet
map.
if (interactive()) {
## remote images -----
### one image
library(leaflet)
library(sf)
library(lattice)
pnt = st_as_sf(data.frame(x = 174.764474, y = -36.877245),
coords = c("x", "y"),
crs = 4326)
img = "http://bit.ly/1TVwRiR"
leaflet() %>%
addTiles() %>%
addCircleMarkers(data = pnt, group = "pnt") %>%
addPopupImages(img, group = "pnt")
### multiple file (types)
library(sf)
images = c(img,
"https://upload.wikimedia.org/wikipedia/commons/9/91/Octicons-mark-github.svg",
"https://www.r-project.org/logo/Rlogo.png",
"https://upload.wikimedia.org/wikipedia/commons/d/d6/MeanMonthlyP.gif")
pt4 = data.frame(x = jitter(rep(174.764474, 4), factor = 0.01),
y = jitter(rep(-36.877245, 4), factor = 0.01))
pt4 = st_as_sf(pt4, coords = c("x", "y"), crs = 4326)
leaflet() %>%
addTiles() %>%
addMarkers(data = pt4, group = "points") %>%
addPopupImages(images, group = "points", width = 400) # NOTE the gif animation
## local images -----
pnt = st_as_sf(data.frame(x = 174.764474, y = -36.877245),
coords = c("x", "y"), crs = 4326)
img = system.file("img","Rlogo.png",package="png")
leaflet() %>%
addTiles() %>%
addCircleMarkers(data = pnt, group = "pnt") %>%
addPopupImages(img, group = "pnt")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.