if (0){
#US bounding box:
for (zoom in 4:15) {
cat("OSM, zoom =", zoom, "\n")
NumTiles(lonR=c(-135,-66), latR=c(25,54) , zoom=zoom)
}
for (zoom in 4:15) {
cat("Google, zoom =", zoom, "\n")
NumTiles(lonR=c(-135,-66), latR=c(25,54) , zoom=zoom, tileDir= "~/mapTiles/Google/")
}
}
Run the code above in your browser using DataLab