Commit 1cebe4bc authored by Johannes Knoch's avatar Johannes Knoch
Browse files

set different names for outcome of two different functions

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