Description Usage Arguments Value Author(s) Examples
Wrapper function for GetMap. Query the Google server for a static map tile, defined primarily by its lat/lon range and/or center and/or zoom.
Multiple additional arguments allow the user to customize the map tile.
1 2 3 4 5 6 7 |
lonR |
longitude range |
latR |
latitude range |
center |
optional center |
size |
desired size of the map tile image. defaults to maximum size returned by the Gogle server, which is 640x640 pixels |
destfile |
File to load the map image from or save to, depending on |
MINIMUMSIZE |
reduce the size of the map to its minimum size that still fits the lat/lon ranges ? |
RETURNIMAGE |
return image yes/no default: TRUE |
GRAYSCALE |
Boolean toggle; if TRUE the colored map tile is rendered into a black & white image, see RGB2GRAY |
NEWMAP |
if TRUE, query the Google server and save to |
zoom |
Google maps zoom level. optional |
verbose |
level of verbosity |
SCALE |
use the API's scale parameter to return higher-resolution map images. The scale value is multiplied with the size to determine the actual output size of the image in pixels, without changing the coverage area of the map |
... |
extra arguments to GetMap |
map tile
Markus Loecher
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | mymarkers <- cbind.data.frame(lat = c(38.898648,38.889112, 38.880940),
lon = c(-77.037692, -77.050273, -77.03660), size = c('tiny','tiny','tiny'),
col = c('blue', 'green', 'red'), char = c('','',''));
##get the bounding box:
bb <- qbbox(lat = mymarkers[,"lat"], lon = mymarkers[,"lon"]);
##download the map:
MyMap <- GetMap.bbox(bb$lonR, bb$latR, destfile = "DC.png", GRAYSCALE =TRUE,
markers = mymarkers);
##The function qbbox() basically computes a bounding box for the given lat,lon
#points with a few additional options such as quantile boxes, additional buffers, etc.
bb <- qbbox(c(40.702147,40.711614,40.718217),c(-74.015794,-74.012318,-73.998284),
TYPE = "all", margin = list(m=rep(5,4), TYPE = c("perc", "abs")[1]));
##download the map:
MyMap <- GetMap.bbox(bb$lonR, bb$latR,destfile = "MyTile3.png", maptype = "satellite")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.