Commit 45ef975f authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Merge branch 'kml_kmz_check' into 'master'

Check if either kml or kmz files exist.

See merge request !22
parents 82fbde22 2974c5c1
Pipeline #25395 passed with stages
in 10 minutes and 23 seconds
......@@ -28,7 +28,7 @@
#' @param plot_on_browser plot on the browser or inline in a notebook (default TRUE)
#'
#' @return 4 files per step:
#' 1) Habitat type probability map as geocoded *.kml layer and *.tif raster files and *.png image output
#' 1) Habitat type probability map as geocoded *.kmz file (with a *.kml layer and *.png image output), and *.tif raster file
#' 2) A Habitat object (only if save_runs is set to TRUE) consisting of 7 slots: \cr
#' run1@models - list of selcted classifiers \cr
#' run1@ref_samples - list of SpatialPointsDataFrames with same length as run1@models holding reference labels [1,2] for each selected model \cr
......
......@@ -12,6 +12,23 @@
#'
#' @export
plot_results <- function(inPath, color = NULL) {
num_files <- length(list.files(
inPath,
pattern = ".kmz$",
all.files = FALSE,
include.dirs = TRUE,
no.. = TRUE
))
if (num_files == 0) {
num_files <- length(list.files(
inPath,
pattern = ".kml$",
all.files = FALSE,
include.dirs = TRUE,
no.. = TRUE
))
}
# Compares the number of .png to that of step_*.tif. If step_*.tif files are missing the
# user's attention is drawn.
......@@ -21,14 +38,8 @@ plot_results <- function(inPath, color = NULL) {
all.files = FALSE,
include.dirs = TRUE,
no.. = TRUE
)) != length(list.files(
inPath,
pattern = ".png$",
all.files = FALSE,
include.dirs = TRUE,
no.. = TRUE
))) {
message("Make sure the number of the step_*.tif files fits to the number of the .png files and that
)) != num_files) {
message("Make sure the number of the step_*.tif files fits to the number of the step_*.km(l|z) 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.")
......
......@@ -83,7 +83,7 @@ multi_Class_Sampling(
\value{
4 files per step:
\enumerate{
\item Habitat type probability map as geocoded *.kml layer and *.tif raster files and *.png image output
\item Habitat type probability map as geocoded *.kmz file (with a *.kml layer and *.png image output), and *.tif raster file
\item A Habitat object (only if save_runs is set to TRUE) consisting of 7 slots: \cr
run1@models - list of selcted classifiers \cr
run1@ref_samples - list of SpatialPointsDataFrames with same length as run1@models holding reference labels \link{1,2} for each selected model \cr
......
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