# NOT RUN {
m <- leaflet() %>% addTiles()
garnishMap(m, addMouseCoordinates)
## add more than one with named argument
library(raster)
m1 <- garnishMap(m, addMouseCoordinates, addHomeButton,
ext = extent(breweries91))
m1
## even more flexible
m2 <- garnishMap(m1, addPolygons, data = franconia, popup = popupTable(franconia),
fillOpacity = 0.8, color = "black", fillColor = "#BEBEBE")
garnishMap(m2, addCircleMarkers, data = breweries)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab