# NOT RUN {
wdir <- file.path(tempdir(),"Path_for_downloading_folder")
# search Landsat 7 level-1
sres <- ls7Search(startDate = as.Date("01-01-2017", "%d-%m-%Y"),
endDate = as.Date("07-01-2017", "%d-%m-%Y"),
lonlat = c(-1.64323, 42.81687),
AppRoot = wdir)
# request to ESPA the pre-pocessing of level-1 images
# to get the surface reflectance
order <- lsEspaOrderImages(search.res = sres,
username = "username",
password = "password",
product = 'sr',
verbose = FALSE)
# }
Run the code above in your browser using DataLab