We should reset result and not res, and then use result.

R-package/R/save_files.r

@@ -110,17 +110,17 @@ saveSamplePoints <-
     
     res <- raster::extract(dummy_raster, result)
     if (length(which(is.na(res))) > 0) {
-      res <- result[-which(is.na(res)), ]
+      result <- result[-which(is.na(res)), ]
     }
-    raster::crs(res) <- raster::crs(dummy_raster)
+    raster::crs(result) <- raster::crs(dummy_raster)
     output_format <- match.arg(output_format)
     if (output_format == "geojson") {
       # Only transform is there points to be saved.
-      if (nrow(res) > 0) {
-        res <- sp::spTransform(res, sp::CRS("+init=epsg:4326"))
+      if (nrow(result) > 0) {
+        result <- sp::spTransform(result, sp::CRS("+init=epsg:4326"))
       }
       rgdal::writeOGR(
-        obj = res,
+        obj = result,
         layer = paste("SamplePoints_step_", step, "_", class_name, sep = ""),
         dsn = paste(in_path, "SamplePoints_step_", step, "_", class_name, ".geojson", sep = ""),
         driver = "GeoJSON",
@@ -129,7 +129,7 @@ saveSamplePoints <-
       ) 
     } else {
       rgdal::writeOGR(
-        obj = res,
+        obj = result,
         layer = paste("SamplePoints_step_", step, "_", class_name, sep = ""),
         dsn = paste(in_path, "SamplePoints_step_", step, "_", class_name, ".shp", sep = ""),
         driver = "ESRI Shapefile",