Commit d646cffd authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Merge branch 'fix_save_run' into 'master'

We are saving run1 object and not run.

See merge request !20
parents 2def921a daedb706
Pipeline #25384 passed with stages
in 11 minutes and 42 seconds
...@@ -493,9 +493,7 @@ multi_Class_Sampling <- function(in.raster, ...@@ -493,9 +493,7 @@ multi_Class_Sampling <- function(in.raster,
if ( save_runs == TRUE) { if ( save_runs == TRUE) {
run1 <- maFo_rf run1 <- maFo_rf
save_run(outPath, save_run(outPath = outPath, step = ni, run1 = run1)
ni,
run1)
remove(run1) remove(run1)
} }
......
...@@ -4,11 +4,11 @@ ...@@ -4,11 +4,11 @@
#' #'
#' @param outPath output path #' @param outPath output path
#' @param step step number #' @param step step number
#' @param run the object to be saved #' @param run1 the object to be saved
#' #'
#' @export #' @export
save_run <- function(outPath, step, run) { save_run <- function(outPath, step, run1) {
save(run, file = paste(outPath, paste("Run", step, sep = ""), sep = "")) save(run1, file = paste(outPath, paste("Run", step, sep = ""), sep = ""))
} }
#' Save Tif #' Save Tif
......
...@@ -4,14 +4,14 @@ ...@@ -4,14 +4,14 @@
\alias{save_run} \alias{save_run}
\title{Save a run} \title{Save a run}
\usage{ \usage{
save_run(outPath, step, run) save_run(outPath, step, run1)
} }
\arguments{ \arguments{
\item{outPath}{output path} \item{outPath}{output path}
\item{step}{step number} \item{step}{step number}
\item{run}{the object to be saved} \item{run1}{the object to be saved}
} }
\description{ \description{
Saves the run object for a step Saves the run object for a step
......
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