# NOT RUN {
# Don't auto-zoom to the objects (can be useful in interactive applications)
leaflet() %>%
addTiles() %>%
addPopups(174.7690922, -36.8523071, "R was born here!") %>%
mapOptions(zoomToLimits = "first")
# }
Run the code above in your browser using DataLab