# NOT RUN {
# load a spatial polygon object of Navarre
data(ex.navarre)
# Download S2MSI1C products sensed by Sentinel-2
# between the julian dates 210 and 218, 2018
wdir <- file.path(tempdir(),"Path_for_downloading_folder")
print(wdir)
senDownSearch(startDate = as.Date("2018210", "%Y%j"),
endDate = as.Date("2018218", "%Y%j"),
platform = "Sentinel-2",
extent = ex.navarre,
product = "S2MSI1C",
pathrow = c("R094"),
username = "username",
password = "password",
AppRoot = wdir)
wdir.sen <- file.path(wdir, "Sentinel-2")
wdir.sen.unzip <- file.path(wdir.sen, "unzip")
files.sen.unzip <- list.files(wdir.sen.unzip,
pattern = "\\TCI.jp2$",
full.names = TRUE,
recursive = TRUE)
img.sen.rgb <- stack(files.sen.unzip[1])
plotRGB(img.sen.rgb)
# }
Run the code above in your browser using DataLab