## Not run:
# ## remote images -----
# ### one image
# pt <- data.frame(x = 174.764474, y = -36.877245)
# coordinates(pt) <- ~ x + y
# proj4string(pt) <- "+init=epsg:4326"
#
# img <- "http://bit.ly/1TVwRiR"
#
# mapview(pt, popup = popupImage(img, src = "remote"))
#
# ### multiple file (types)
# images <- c(img,
# "https://upload.wikimedia.org/wikipedia/commons/1/1b/R_logo.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))
# coordinates(pt4) <- ~ x + y
# proj4string(pt4) <- "+init=epsg:4326"
#
# mapview(pt4, popup = popupImage(images, src = "remote")) # NOTE the gif animation
#
# ## local images -----
# img <- system.file("img","Rlogo.png",package="png")
# mapview(pt, popup = popupImage(img))
# ## End(Not run)
Run the code above in your browser using DataLab