# NOT RUN {
# pass an image name
(res <- lsat_list(max = 40))
tifs <- grep("\\.TIF$", res$Key, value = TRUE)
lsat_image(tifs[5])
lsat_image(tifs[6])
lsat_image(tifs[9])
# caching
## requesting an image you already have will return path if found
lsat_image(tifs[5])
# }
Run the code above in your browser using DataLab