checks now only for .tif files which begin with step_* and compares them to...

checks now only for .tif files which begin with step_* and compares them to the .png files; message for the user adjusted

R-package/R/plot_results.r

@@ -12,23 +12,23 @@
 #'
 #' @export
 plot_results <- function(inPath, color = NULL) {
-    
-    # Compares the number of .kmz to that of .tif. If .tif files are missing the
+
+    # Compares the number of .png to that of step_*.tif. If step_*.tif files are missing the
     # user's attention is drawn.
     if (length(list.files(
         inPath,
-        pattern = ".tif$",
+        pattern = "step_(.*).tif",
         all.files = FALSE,
         include.dirs = TRUE,
         no.. = TRUE
     )) != length(list.files(
         inPath,
-        pattern = ".kmz$",
+        pattern = ".png$",
         all.files = FALSE,
         include.dirs = TRUE,
         no.. = TRUE
     ))) {
-        message("Make sure the number of the .tif files fits to the number of the .kmz files and that
+        message("Make sure the number of the step_*.tif files fits to the number of the .png files and that
                 there are no other files from previous runs.
                 If you have resumed a run, then the data of the aborted and the continued run needs 
                 to be in the Results directory. You need them for plotting the classification map.")