#Simple, low-zoom map for testing
bound_box <- c(-77.393, 38.277, -75.553, 39.741)
(x <- base_map(bound_box, zoom = 7, maptype = 'stamen_toner_lite'))
# \donttest{
# Default zoom map with terrain maptype.
y <- base_map(bound_box, maptype = 'stamen_terrain')
# }
Run the code above in your browser using DataLab