The function uses sen2cor to manually correct L1C products. Standalone version of sen2cor 2.5.5 is used.
sen2cor(l1c_prodlist = NULL, l1c_dir = NULL, outdir = NULL, proc_dir = NA, tmpdir = NA, rmtmp = TRUE, tiles = NULL, parallel = FALSE, overwrite = FALSE, .log_message = NA, .log_output = NA)
l1c_prodlist | List of L1C product names to be corrected. They can be both product names with full/relative path or only names of SAFE products (in this case, also l1c_dir argument must be provided). SAFE products must be unzipped. Note that, at this stage, all products must be in the same directory (this will be fixed). |
---|---|
l1c_dir | Full or relative path of input L1C products.
If NULL (default), |
outdir | Directory where output L2A products will be placed.
If NULL (default), each product is left in the parent directory of |
proc_dir | (optional) Directory where processing is applied.
If NA (default), processing is done in |
tmpdir | (optional) Path where processing is performed if a temporary
working directory is required (see argument |
rmtmp | (optional) Logical: should temporary files be removed? (Default: TRUE) |
tiles | Vector of Sentinel-2 Tile strings (5-length character) to be processed (default: process all the tiles found in the input L1C products). |
parallel | (optional) Logical: if TRUE, sen2cor instances are launched
in parallel using multiple cores; if FALSE (default), they are launched in
series on a single core.
The number of cores is automatically determined; specifying it is also
possible (e.g. |
overwrite | Logical value: should existing output L2A products be overwritten? (default: FALSE) |
.log_message | (optional) Internal parameter
(it is used when the function is called by |
.log_output | (optional) Internal parameter
(it is used when the function is called by |
Vector character with the list ot the output products (being corrected or already existing)
License: GPL 3.0
# NOT RUN { pos <- st_sfc(st_point(c(12.0, 44.8)), crs=st_crs(4326)) time_window <- as.Date(c("2017-05-01","2017-07-30")) example_s2_list <- s2_list(spatial_extent=pos, tile="32TQQ", time_interval=time_window) s2_download(example_s2_list, outdir=tempdir()) sen2cor(names(example_s2_list)[1], l1c_dir=tempdir(), outdir=tempdir()) # }