## 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