OpenStreetMap (version 0.3.2)

openmap: Get a map based on lat long coordinates

Description

Get a map based on lat long coordinates

Usage

openmap(upperLeft, lowerRight, zoom = NULL, type = c("osm", "osm-bw", "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", "cloudmade-", "hillshade", "opencyclemap", "osm-transport", "osm-public-transport", "osm-bbike", "osm-bbike-german"), minNumTiles = 9L, mergeTiles = TRUE)

Arguments

upperLeft

the upper left lat and long

lowerRight

the lower right lat and long

zoom

the zoom level. If null, it is determined automatically

type

the tile server from which to get the map

minNumTiles

If zoom is null, zoom will be chosen such that the number of map tiles is greater than or equal to this number.

mergeTiles

should map tiles be merged into one tile

Examples

## Not run: 
# #show some of the maps available
# nm <- c("osm", "maptoolkit-topo", "mapquest",
# 		"mapquest-aerial", "bing", "stamen-toner",
# 		"stamen-watercolor", "esri", "esri-topo",
# 		"nps", "apple-iphoto", "skobbler")
# par(mfrow=c(3,4))
# #Korea
# for(i in 1:length(nm)){
# 	map <- openmap(c(43.46886761482925,119.94873046875),
# 			c(33.22949814144951,133.9892578125),
# 			minNumTiles=3,type=nm[i])
# 	plot(map)
# }
# 
# 
# #plot Korea with ggplot2.
# library(ggplot2)
# map <- openmap(c(43.46886761482925,119.94873046875),
# 		c(33.22949814144951,133.9892578125),
# 		minNumTiles=4)
# autoplot(map)
# ## End(Not run)