Gilbert e colegas, boa tarde!

Tenho esse trecho de código que pode servir pra testar.

#install.packages("OpenStreetMap", dep=T)

#Pacotes exigidos: c("OpenStreetMap", "rJava", "raster", "sp", "rgdal")

require(OpenStreetMap)

#Dourados-MS

map1 <- openmap(c(lat=-21.5, lon=-56), c(lat=-23, lon=-54.5), 

                minNumTiles=4, type="esri")

map2 <- openmap(c(lat=-21.5, lon=-56), c(lat=-23, lon=-54.5), 

                minNumTiles=4, type="esri-topo")

plot(map1)

plot(map2)

#opcoes <- c("osm", "maptoolkit-topo", "waze", "mapquest", "mapquest-aerial", 

#            "bing", "stamen-toner", "stamen-terrain", "stamen-watercolor",

#            "osm-german", "osm-wanderreitkarte", "mapbox", "esri", "esri-topo",

#            "nps", "apple-iphoto", "skobbler", "opencyclemap", "osm-transport",

#            "osm-public-transport", "osm-bbike", "osm-bbike-german")