## Not run: 
# if (require(tmap)) {
#     geocode_OSM("India")
#     geocode_OSM("CBS Weg 1, Heerlen")
#     geocode_OSM("CBS Weg 1, Heerlen", projection = "rd")
# 
#     data(metro)
# 
#     # sample 5 cities from the metro dataset
#     five_cities <- metro[sample(length(metro), 5), ]
# 
#     # obtain geocode locations from their long names
#     five_cities_geocode <- geocode_OSM(five_cities$name_long)
#     sp::coordinates(five_cities_geocode) <- ~lon+lat
# 
#     # change to interactive mode
#     current.mode <- tmap_mode("view")
# 
#     # plot metro coordinates in red and geocode coordinates in blue
#     # zoom in to see the differences
#     tm_shape(five_cities) +
#     	tm_dots(col = "blue") +
#     tm_shape(five_cities_geocode) +
#     	tm_dots(col = "red")
# 
#     # restore current mode
#     tmap_mode(current.mode)
# }
# ## End(Not run)
Run the code above in your browser using DataLab