if (FALSE) # save cran check time
bbox <- c(left = -97.1268, bottom = 31.536245, right = -97.099334, top = 31.559652)
terrain_map <- get_stadiamap(bbox, zoom = 14, maptype = "stamen_terrain_background", color = "bw")
ggmap(terrain_map)
lines_map <- get_stadiamap(bbox, zoom = 14, maptype = "stamen_toner_lines")
ggmap(lines_map)
ggmap(terrain_map) +
inset_ggmap(lines_map)
Run the code above in your browser using DataLab