Commit e4537dae authored by Johannes Knoch's avatar Johannes Knoch
Browse files

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
parent 5e126a5e
......@@ -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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment