Skip to content
GitLab
Commit 1cebe4bc authored by Johannes Knoch's avatar Johannes Knoch
Browse files

set different names for outcome of two different functions

parent ccc3e7b9
Hide whitespace changes
Inline Side-by-side
R-package/R/save_files.r
View file @ 1cebe4bc
......@@ -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
......
Supports Markdown
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