senMosaic | R Documentation |
senMosaic
merges the Sentinel-2 imagery that covers a region of interest
on the same dates.
senMosaic( src, AppRoot, region = NULL, out.name = "outfile", verbose = FALSE, gutils = TRUE, overwrite = FALSE, ... )
src |
the path of the folder with the Sentinel images in GTiff format. |
AppRoot |
the directory to save the mosaicked images. |
region |
a |
out.name |
the name of the folder that stores the outputs. By default, “outfile” is assigned. |
verbose |
logical argument. If |
gutils |
logical argument. If |
overwrite |
logical argument. If |
... |
arguments for nested functions:
|
The function mosaics the imagery in the src
folder. The folder can
hold GTiff images from several tiles, dates and bands. When only a subset
dates has to be mosaicked, the dates should be provided through the argument
dates
. The dates must be provided as a Date
class object.For
further details about the bFilter
argument, go to the
senDownload
function. Once mosaicked, the images can be cropped
to fit the region
(optional). The region
can be defined in any
coordinate reference system, since senMosaic
automatically reproject
the extent to match the projection of the image. The outputs will be placed
in the AppRoot
directory, under the folder named as out.name
.
If no name is provided, the folder is named “outfile”.
this function does not return anything. It saves the imagery in the
AppRoot
directory.
## Not run: # load a spatial polygon object of Navarre data(ex.navarre) # main output directory wdir <- file.path(tempdir(),"Path_for_downloading_folder") print(wdir) # download Sentinel-2 images senDownSearch(startDate = as.Date("2018210", "%Y%j"), endDate = as.Date("2018218", "%Y%j"), platform = "Sentinel-2", extent = ex.navarre, product = "S2MSI1C", pathrow = c("R094"), username = "username", password = "password", AppRoot = wdir) # folder with the unzipped images wdir.sen <- file.path(wdir, "Sentinel-2") wdir.sen.unzip <- file.path(wdir.sen, "unzip") # mosaic the Sentinel-2 images senMosaic(wdir.sen.unzip, AppRoot = wdir.sen, gutils = TRUE, out.name = "Navarre") wdir.sen <- file.path(wdir.sen,"Navarre") # load and plot a Sentinel-2 image files.sen <- list.files(wdir.sen, pattern = "\\.tif$", full.names = TRUE ,recursive = TRUE) # print Sentinel-2 bands getRGISToolsOpt("SEN2BANDS") file.sen.rgb <- stack(files.sen[grepl("TCI",files.sen)][1]) plotRGB(file.sen.rgb) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.