Merge branch 'fix_save_run' into 'master'

We are saving run1 object and not run.

See merge request !20

R-package/R/outer_procedure.r

@@ -493,9 +493,7 @@ multi_Class_Sampling <- function(in.raster,
 
     if ( save_runs == TRUE) {
       run1 <- maFo_rf
-      save_run(outPath,
-               ni,
-               run1)
+      save_run(outPath = outPath, step = ni, run1 = run1)
       remove(run1)
     }
  

R-package/R/save_files.r

@@ -4,11 +4,11 @@
 #'
 #' @param outPath output path
 #' @param step step number
-#' @param run the object to be saved
+#' @param run1 the object to be saved
 #'
 #' @export
-save_run <- function(outPath, step, run) {
-  save(run, file = paste(outPath, paste("Run", step, sep = ""), sep = ""))
+save_run <- function(outPath, step, run1) {
+  save(run1, file = paste(outPath, paste("Run", step, sep = ""), sep = ""))
 }
 
 #' Save Tif

R-package/man/save_run.Rd

@@ -4,14 +4,14 @@
 \alias{save_run}
 \title{Save a run}
 \usage{
-save_run(outPath, step, run)
+save_run(outPath, step, run1)
 }
 \arguments{
 \item{outPath}{output path}
 
 \item{step}{step number}
 
-\item{run}{the object to be saved}
+\item{run1}{the object to be saved}
 }
 \description{
 Saves the run object for a step