## Not run:
# data(metro)
#
# five_cities <- metro[sample(length(metro), 5), ]
#
# addresses <- rev_geocode_OSM(five_cities, zoom = 6)
#
# five_cities <- append_data(five_cities, addresses, fixed.order = TRUE)
#
# tmap_mode("view")
# tm_shape(five_cities) +
# tm_markers(text="city")
# ## End(Not run)
Run the code above in your browser using DataLab