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

Merge branch 'issue#29' into 'master'

the functions from save_files.r are now used in outer_procedure.r

See merge request !17
parents f7e7de27 fe92fdd8
Pipeline #24768 passed with stages
in 10 minutes and 48 seconds
......@@ -493,32 +493,23 @@ multi_Class_Sampling <- function(in.raster,
if ( save_runs == TRUE) {
run1 <- maFo_rf
save(run1, file = paste(outPath, paste("Run", ni, sep = ""), sep = ""))
save_run(outPath,
ni,
run1)
remove(run1)
}
###rgdal version issue
not_good_workaround <- comment(dummy@crs)
comment(dummy@crs) <- ""
###
raster::writeRaster(
dummy,
filename = paste(outPath,
paste("step_",
ni,
paste("_", classNames[index], sep = ""),
".tif",
sep = ""),
sep = ""),
format = "GTiff",
overwrite = overwrite)
save_class_tiff(outPath,
ni,
classNames,
index,
dummy,
overwrite)
###rgdal version issue
comment(dummy@crs) <- not_good_workaround
###
kml <- raster::projectRaster(dummy,
crs = "+proj=longlat +datum=WGS84",
method = 'ngb')
raster::KML(kml, paste(outPath, paste("step_", ni, sep = ""), sep = ""), overwrite = overwrite, zip = FALSE)
save_kml(outPath,
ni,
dummy,
overwrite)
thres <- as.numeric(decision)
thres <- thres + num_models
......
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