swap varaible names

R-package/R/save_files.r

@@ -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.