# NOT RUN {
library(ggplot2)
library(geoviz)
dem <- example_raster()
dem <- raster::aggregate(dem, 10) #aggregate to speed up ggplot for testing
gg_overlay_image <- slippy_overlay(
dem,
image_source = "stamen",
image_type = "watercolor",
return_png = FALSE,
max_tiles = 2
)
ggplot() +
ggslippy(gg_overlay_image, set_coord_equal = FALSE)
# }
Run the code above in your browser using DataLab