# NOT RUN {
if (interactive()){
BrooklynLatLon = getGeoCode("Brooklyn")
mapBrooklyn <- GetMap(center=BrooklynLatLon, destfile = file.path(tempdir(), "Brooklyn.png"),
zoom=11, size = c(240,240))
mapBrooklynBW$myTile = RGB2GRAY(mapBrooklyn$myTile)
PlotOnStaticMap(mapBrooklynBW)
}
# }
Run the code above in your browser using DataLab