generates a "static map" from map tiles by "stitching" them together
necssary because the Google static maps API requires a key now
genStaticMap(center, zoom = 15, size = c(640, 640),
destfile = tempfile("staticMap", fileext = ".png"),
type = c("google", "google-m", "google-s", "osm",
"osm-hot", "stamen-toner", "stamen-terrain",
"stamen-watercolor")[1], urlBase = "http://mt1.google.com/vt/lyrs=m",
tileDir = "/tmp/", tileExt = ".png", verbose = 0,
...)center |
optional center |
zoom |
zoom |
size |
size (in pixels) of "stitched" map |
destfile |
File to load the map image from or save to, depending on |
type |
choice of tile server |
urlBase |
tileserver URL, alternatives would be "http://a.tile.openstreetmap.org/", "http://tile.stamen.com/toner/","http://tile.stamen.com/watercolor/" |
tileDir |
map tiles can be stored in a local directory, e.g. "~/mapTiles/Google/" |
tileExt |
image type of tile |
verbose |
level of verbosity |
... |
further arguments to be passed to |
list with tiles
Markus Loecher
if (0){
lat = c(40.702147,40.718217,40.711614);
lon = c(-74.012318,-74.015794,-73.998284);
center = c(mean(lat), mean(lon));
zoom <- min(MaxZoom(range(lat), range(lon)));
bb=qbbox(lat,lon)
mt = GetMapTiles(latR =bb$latR , lonR=bb$lonR,zoom=zoom,verbose=1)
PlotOnMapTiles(mt,lat=lat,lon=lon,pch=20,col=c('red', 'blue', 'green'),cex=2)
mt = GetMapTiles(latR =bb$latR , lonR=bb$lonR,zoom=zoom,
tileDir= "~/mapTiles/Google/")
PlotOnMapTiles(mt,lat=lat,lon=lon,pch=20,col=c('red', 'blue', 'green'),cex=2)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.