# NOT RUN {
# Query path 126, row 59, 2013-04-15 to 2017-03-09, <20% cloud cover
( p126r59.oli <- oli.asw(path=126, row=59, dates = c("2013-04-15", "2017-03-09"),
cloud.cover = 20) )
# Download query images from query
for( i in 1:length(p126r59.oli$download_url)) {
oli.url <- p126r59.oli$download_url[i]
try(utils::download.file(url=oli.url, destfile=getwd(), mode = "wb"))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab