genStaticMap function

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, 
    ...)

Arguments

• 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 NEWMAP.
• 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 FUN

Returns

list with tiles

Author(s)

Markus Loecher

Examples

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)
  
}