Commit 03c1e40e authored by Johannes Knoch's avatar Johannes Knoch
Browse files

swap varaible names

parent c9546ba9
......@@ -191,11 +191,11 @@ writeOutSamples <- function(in_path, step, class_name, output_format = c("shp",
result <- do.call(rbind, collect)
res <- raster::extract(dummy_raster, result)
res <- raster::extract(dummy_sample, result)
if (length(which(is.na(res))) > 0) {
result <- result[-which(is.na(res)), ]
}
raster::crs(result) <- raster::crs(dummy_raster)
raster::crs(result) <- raster::crs(dummy_sample)
output_format <- match.arg(output_format)
if (output_format == "geojson") {
# Only transform is there points to be saved.
......
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