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

R-package/R/outer_procedure.r

@@ -493,32 +493,31 @@ 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) <- ""
+    # 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
+    # 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)
+    
+    print(paste(wkt(maFo_rf@layer[[1]])))
 
     thres <- as.numeric(decision)
     thres <- thres + num_models