# \donttest{
# Download example data and list contents
data_dir <- get_external_data(path = tempdir())
list.files(data_dir)
# Load a specific raster file (.tif)
pre_fire <- get_external_data("NBRpre.tif", path = tempdir(), load = TRUE)
print(pre_fire)
# Load a specific shapefile (.shp)
shape_data <- get_external_data("shapefile_reference.shp", path = tempdir(), load = TRUE)
print(shape_data)
# }
Run the code above in your browser using DataLab