library(prettymapr)
ns <- makebbox(47.2, -59.7, 43.3, -66.4)
osm.plot(ns)
osm.plot(ns, type="mapquestsat")
prettymap(osm.plot(ns), scale.style="ticks", scale.tick.cex=0)
tile.url.darkmatter <- function(xtile, ytile, zoom) {
paste0(paste("http://a.basemaps.cartocdn.com/dark_all",
zoom, xtile, ytile, sep="/"), ".png")
}
osm.plot(ns, type="darkmatter")
Run the code above in your browser using DataLab