if (sits_run_examples()) {
# Creating a sits cube from BDC
bdc_cube <- sits_cube(
source = "BDC",
collection = "CBERS-WFI-16D",
tiles = c("007004", "007005"),
bands = c("B15", "CLOUD"),
start_date = "2018-01-01",
end_date = "2018-01-12"
)
# Downloading images to a temporary directory
cube_local <- sits_cube_copy(
cube = bdc_cube,
output_dir = tempdir(),
roi = c(
lon_min = -46.5,
lat_min = -45.5,
lon_max = -15.5,
lat_max = -14.6
),
multicores = 2L,
res = 250,
)
}
Run the code above in your browser using DataLab