if (FALSE) {
spdf_world <- ne_download(scale = 110, type = "countries")
if (require(sp)) {
plot(spdf_world)
plot(ne_download(type = "populated_places"))
}
# reloading from the saved file in the same session with same arguments
spdf_world2 <- ne_load(scale = 110, type = "countries")
# download followed by load from specified directory will work across sessions
spdf_world <- ne_download(scale = 110, type = "countries", destdir = getwd())
spdf_world2 <- ne_load(scale = 110, type = "countries", destdir = getwd())
# for raster, here an example with Manual Shaded Relief (MSR) download & load
rst <- ne_download(scale = 50, type = "MSR_50M", category = "raster", destdir = getwd())
# load after having downloaded
rst <- ne_load(
scale = 50, type = "MSR_50M", category = "raster", destdir =
getwd()
)
# plot
library(terra)
terra::plot(rst)
# end dontrun
}
Run the code above in your browser using DataLab