- correct if mask = FALSE

R/Lib_FilterData.R

@@ -27,7 +27,9 @@
 perform_radiometric_filtering <- function(Image_Path, Mask_Path, Output_Dir, TypePCA = "SPCA", NDVI_Thresh = 0.5, Blue_Thresh = 500, NIR_Thresh = 1500, Blue = 480, Red = 700, NIR = 835) {
   # check if format of raster data is as expected
   check_data(Image_Path)
-  check_data(Mask_Path)
+  if (!Mask_Path==FALSE){
+    check_data(Mask_Path)
+  }
   # define full output directory
   Output_Dir_Full <- define_output_directory(Output_Dir, Image_Path, TypePCA)
   # define dimensions of the image

R/Lib_PerformPCA.R

@@ -27,7 +27,9 @@
 perform_PCA  <- function(ImPath, ImPathShade, Output_Dir, Continuum_Removal = TRUE, TypePCA = "SPCA", FilterPCA = FALSE, Excluded_WL = FALSE, nb_partitions = 20, nbCPU = 1, MaxRAM = 0.25) {
   # check if format of raster data is as expected
   check_data(ImPath)
-  check_data(ImPathShade)
+  if (!ImPathShade==FALSE){
+    check_data(ImPathShade)
+  }
   # define the path corresponding to image, mask and output directory
   ImNames <- list()
   ImNames$Input.Image <- ImPath