if (sits_run_examples()) {
# obtain the DEM cube
dem_cube_19HBA <- sits_cube(
source = "MPC",
collection = "COP-DEM-GLO-30",
bands = "ELEVATION",
tiles = "19HBA"
)
# plot the DEM reversing the palette
plot(dem_cube_19HBA, band = "ELEVATION")
}
Run the code above in your browser using DataLab