set different names for outcome of two different functions

R-package/R/save_files.r

@@ -201,8 +201,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
     
     rgdal::writeOGR(
       obj = res,
-      layer = paste("SamplePoints_step_", step, "_", class_name, sep = ""),
-      dsn = paste(in_path, "SamplePoints_step_", step, "_", class_name, ".geojson", sep = ""),
+      layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""),
+      dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".geojson", sep = ""),
       driver = "GeoJSON",
       check_exists = TRUE,
       overwrite_layer = TRUE
@@ -212,8 +212,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
     
     rgdal::writeOGR(
       obj = res,
-      layer = paste("SamplePoints_step_", step, "_", class_name, sep = ""),
-      dsn = paste(in_path, "SamplePoints_step_", step, "_", class_name, ".shp", sep = ""),
+      layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""),
+      dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".shp", sep = ""),
       driver = "ESRI Shapefile",
       check_exists = TRUE,
       overwrite_layer = TRUE