# NOT RUN {
wdir <- file.path(tempdir(),"Path_for_downloading_folder")
# search Landsat 7 level-2
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-2 images to
# get the surface reflectance
order <- lsEspaOrderImages(search.res = sres,
username = "username",
password = "password",
product = 'sr',
verbose = FALSE)
# get an ID for our request
lsEspaGetOrderImages(username = "username",
password = "password")
# }
Run the code above in your browser using DataLab