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