## Not run:
# if (require(tmap)) {
# data(metro)
#
# # sample five cities from metro dataset
# five_cities <- metro[sample(length(metro), 5), ]
#
# # obtain reverse geocode address information
# addresses <- rev_geocode_OSM(five_cities, zoom = 6)
# five_cities <- append_data(five_cities, addresses, fixed.order = TRUE)
#
# # change to interactive mode
# current.mode <- tmap_mode("view")
# tm_shape(five_cities) +
# tm_markers(text="city")
#
# # restore current mode
# tmap_mode(current.mode)
# }
# ## End(Not run)
Run the code above in your browser using DataLab