Commit b1afc3b3 authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Revert to the old name format for backwards compability.

parent 809a7cf0
...@@ -215,8 +215,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp", ...@@ -215,8 +215,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
} }
sf::st_write( sf::st_write(
obj = sf::st_as_sf(x = result, crs = 4326), obj = sf::st_as_sf(x = result, crs = 4326),
layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""), layer = paste("RefHaSa_", class_name, "_", step, sep = ""),
dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".geojson", sep = ""), dsn = paste(in_path, "RefHaSa_", class_name, "_", step, ".geojson", sep = ""),
driver = "GeoJSON", driver = "GeoJSON",
check_exists = TRUE, check_exists = TRUE,
append = FALSE append = FALSE
...@@ -224,8 +224,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp", ...@@ -224,8 +224,8 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
} else { } else {
sf::st_write( sf::st_write(
obj = sf::st_as_sf(x = result, crs = 4326), obj = sf::st_as_sf(x = result, crs = 4326),
layer = paste("sel_SamplePoints_step_", step, "_", class_name, sep = ""), layer = paste("RefHaSa_", class_name, "_", step, sep = ""),
dsn = paste(in_path, "sel_SamplePoints_step_", step, "_", class_name, ".shp", sep = ""), dsn = paste(in_path, "RefHaSa_", class_name, "_", step, ".shp", sep = ""),
driver = "ESRI Shapefile", driver = "ESRI Shapefile",
check_exists = TRUE, check_exists = TRUE,
append = FALSE append = FALSE
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment