lower case for the first letter of the function; documentation adapted

R-package/NAMESPACE

 # Generated by roxygen2: do not edit by hand
 
-export(WriteOutSamples)
 export(clip)
 export(iplot)
 export(load_reference_as_shape)
@@ -13,4 +12,5 @@ export(sample_nb)
 export(save_class_tiff)
 export(save_kml)
 export(save_run)
+export(writeOutSamples)
 exportClasses(Habitat)

R-package/R/WriteOutSamples.r

@@ -14,7 +14,7 @@
 #' @export
 
 ###write out selected samples
-WriteOutSamples <- function (inPath, step, className, output_format = c("shp", "geojson")) {
+writeOutSamples <- function (inPath, step, className, output_format = c("shp", "geojson")) {
 
   paste(inPath, "step_", step, "_", className, ".tif", sep = "")
   run1 <- get(load(paste(inPath, "Run", step, sep = "")))
@@ -63,7 +63,7 @@ WriteOutSamples <- function (inPath, step, className, output_format = c("shp", "
     res <- sp::spTransform(res, CRS("+proj=longlat +datum=WGS84 +init=epsg:4326"))
 
     rgdal::writeOGR(
-      res,
+      obj = res,
       layer = paste("SamplePoints_step_", step, "_", className, sep = ""),
       dsn = paste(inPath, "SamplePoints_step_", step, "_", className, ".geojson", sep = ""),
       driver = "GeoJSON",
@@ -76,7 +76,7 @@ WriteOutSamples <- function (inPath, step, className, output_format = c("shp", "
       res <- sp::spTransform(res, CRS("+proj=longlat +datum=WGS84 +init=epsg:4326"))
 
       rgdal::writeOGR(
-        res,
+        obj = res,
         layer = paste("SamplePoints_step_", step, "_", className, sep = ""),
         dsn = paste(inPath, "SamplePoints_step_", step, "_", className, ".shp", sep = ""),
         driver = "ESRI Shapefile",

R-package/man/WriteOutSamples.Rd → R-package/man/writeOutSamples.Rd

 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/WriteOutSamples.r
-\name{WriteOutSamples}
-\alias{WriteOutSamples}
+\name{writeOutSamples}
+\alias{writeOutSamples}
 \title{Sample Collection for Habitat Types}
 \usage{
-WriteOutSamples(inPath, step, className, output_format = c("shp", "geojson"))
+writeOutSamples(inPath, step, className, output_format = c("shp", "geojson"))
 }
 \arguments{
 \item{inPath}{file path (character) for results of habitat type sampling and probability mapping (same as outPath from function multi_Class_Sampling)}