deleted some unnecessary comments and prints

R-package/R/outer_procedure.r

@@ -498,10 +498,7 @@ multi_Class_Sampling <- function(in.raster,
                run1)
       remove(run1)
     }
-    ###rgdal version issue
-    # not_good_workaround <- comment(dummy@crs)
-    # comment(dummy@crs) <- ""
-    ###
+ 
     save_class_tiff(outPath,
                     ni,
                     classNames,
@@ -509,15 +506,10 @@ multi_Class_Sampling <- function(in.raster,
                     dummy,
                     overwrite)
 
-    ###rgdal version issue
-    # comment(dummy@crs) <- not_good_workaround
-    ###
     save_kml(outPath,
              ni,
              dummy,
              overwrite)
-    
-    print(paste(wkt(maFo_rf@layer[[1]])))
 
     thres <- as.numeric(decision)
     thres <- thres + num_models