Examples for 'tmaptools::rev_geocode_OSM'

### ** Examples

## Not run: 
##D if (require(tmap)) {
##D     data(metro)
##D 
##D     # sample five cities from metro dataset
##D     set.seed(1234)
##D     five_cities <- metro[sample(length(metro), 5), ]
##D 
##D     # obtain reverse geocode address information
##D     addresses <- rev_geocode_OSM(five_cities, zoom = 6)
##D     five_cities <- sf::st_sf(data.frame(five_cities, addresses))
##D 
##D     # change to interactive mode
##D     current.mode <- tmap_mode("view")
##D     tm_shape(five_cities) +
##D     	tm_markers(text="name")
##D 
##D     # restore current mode
##D     tmap_mode(current.mode)
##D }
## End(Not run)