# Create the Leaflet map
# Create the Leaflet map and give it an ID
mymap <- leaflet() %>% addTiles() %>%
addMarkers(lng=174.768, lat=-36.852, popup="Auckland")
# Render the Leaflet map with an ID
mymap %>%
htmlwidgets::onRender("function(el, x) {
el.id = 'leaflet-map';
}")
