# NOT RUN {
# load a spatial polygon object of Navarre
data(ex.navarre)
wdir <- file.path(tempdir(),"Path_for_downloading_folder")
print(src)
modDownSearch(product = "MOD09GA",
startDate = as.Date("01-01-2018", "%d-%m-%Y"),
endDate = as.Date("03-01-2018", "%d-%m-%Y"),
username = "username",
password = "password",
AppRoot = wdir,
extract.tif = TRUE,
collection = 6,
extent = ex.navarre)
wdir.mod.tif <- file.path(wdir,"Modis","MOD09GA","tif")
files.mod <- list.files(wdir.mod.tif,
pattern = "\\.tif$",
full.names = TRUE,
recursive = TRUE)[c(16,19,18)]
img.mod <- stack(files.mod)
qrange <- c(0.001, 0.999)
img.mod.rgb <- varRGB(img.mod[[1]],
img.mod[[2]],
img.mod[[3]],
qrange)
plotRGB(img.mod.rgb)
# }
Run the code above in your browser using DataLab