# NOT RUN {
## List scenes
(res <- lsat_scenes(n_max = 10))
## List scene files
lsat_scene_files(x = res$download_url[1])
## Get an image
### Returns path to the image
lsat_image(x = "LC80101172015002LGN00_B5.TIF")
## Visualize
if (requireNamespace("raster")) {
library("raster")
x <- lsat_cache_details()[[1]]
img <- raster(x$file)
plot(img)
}
# }
Run the code above in your browser using DataLab