# NOT RUN {
if (interactive()) {
if (requireNamespace("plainview")) {
library(leaflet)
library(plainview)
leaflet() %>%
addProviderTiles("OpenStreetMap") %>%
addRasterImage(poppendorf[[1]], project = TRUE, group = "poppendorf",
layerId = "poppendorf") %>%
addImageQuery(poppendorf[[1]], project = TRUE,
layerId = "poppendorf") %>%
addLayersControl(overlayGroups = "poppendorf")
}
}
# }
Run the code above in your browser using DataLab