Merge branch 'saveSamplePoints' of...

Merge branch 'saveSamplePoints' of git.gfz-potsdam.de:habitat-sampler/HabitatSampler into saveSamplePoints

R-package/R/save_files.r

@@ -204,8 +204,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
@@ -215,8 +215,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