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