Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Habitat Sampler
HabitatSampler
Commits
b3309b28
Commit
b3309b28
authored
Jul 07, 2021
by
Romulo Pereira Goncalves
Browse files
Check if either kml or kmz files exist.
parent
82fbde22
Changes
1
Hide whitespace changes
Inline
Side-by-side
R-package/R/plot_results.r
View file @
b3309b28
...
...
@@ -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."
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment