Revert to the old name format for backwards compability.

R-package/R/save_files.r

@@ -215,8 +215,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
     }
     sf::st_write(
       obj = sf::st_as_sf(x = result, crs = 4326),
-      layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""),
-      dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".geojson", sep = ""),
+      layer = paste("RefHaSa_", class_name, "_", step, sep = ""),
+      dsn = paste(in_path, "RefHaSa_", class_name, "_", step, ".geojson", sep = ""),
       driver = "GeoJSON",
       check_exists = TRUE,
       append = FALSE
@@ -224,8 +224,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
   } else {
     sf::st_write(
       obj = sf::st_as_sf(x = result, crs = 4326),
-      layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""),
-      dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".shp", sep = ""),
+      layer = paste("RefHaSa_", class_name, "_", step, sep = ""),
+      dsn = paste(in_path, "RefHaSa_", class_name, "_", step, ".shp", sep = ""),
       driver = "ESRI Shapefile",
       check_exists = TRUE,
       append = FALSE