if (FALSE) {
library(rsat)
# load navarre sf from the package
data(ex.navarre)
# set the credentials
set_credentials("username", "password")
# path where the region is stored
rtoi.path <- tempdir()
# path where downloads are stored
db.path <- file.path(tempdir(), "DATABASE")
navarre <- new_rtoi(
"Navarre",
ex.navarre,
rtoi.path,
db.path
) #'
# Landsat-5
rsat_search(
region = navarre,
product = "LANDSAT_TM_C1",
dates = as.Date("1988-08-01") + seq(1, 35)
)
rsat_download(navarre)
rsat_mosaic(navarre, overwrite = T)
rsat_list_data(navarre)
}
Run the code above in your browser using DataLab