if (sits_run_examples()) {
# define a non-regular Sentinel-2 cube in AWS
s2_cube_open <- sits_cube(
source = "AWS",
collection = "SENTINEL-S2-L2A-COGS",
tiles = c("20LKP", "20LLP"),
bands = c("B8A", "SCL"),
start_date = "2018-10-01",
end_date = "2018-11-01"
)
# create a directory to store the regularized images
dir_images <- paste0(".", "/images_regcube/")
if (!dir.exists(dir_images)) {
dir.create(dir_images)
}
# regularize the cube
rg_cube <- sits_regularize(
cube = s2_cube_open,
output_dir = dir_images,
res = 60,
period = "P16D",
multicores = 2,
memsize = 16
)
}
Run the code above in your browser using DataLab