# NOT RUN {
require(raster)
require(stars)
require(plainview)
require(leaflet)
leaflet() %>%
addTiles(group = "OpenStreetMap") %>%
addRasterRGB(plainview::poppendorf, 4,3,2, group = "True colours") %>%
addStarsRGB(st_as_stars(plainview::poppendorf), 5,4,3, group = "False colours") %>%
addLayersControl(
baseGroups = c("Satellite"),
overlayGroups = c("True colours", "False colours"),
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab