# NOT RUN {
library(leaflet)
library(raster)
m <- leaflet() %>%
addProviderTiles("OpenStreetMap") %>%
addCircleMarkers(data = breweries) %>%
addHomeButton(extent(breweries), "breweries")
m
## remove the button
removeHomeButton(m)
# }
Run the code above in your browser using DataLab