Include writeRaster for twdtwRaster class

r-spatial · Jun 5, 2017 · 886f1b4 · 886f1b4
1 parent 63f6a4a
commit 886f1b4
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -73,6 +73,7 @@ exportMethods(twdtwMatches)
 exportMethods(twdtwRaster)
 exportMethods(twdtwTimeSeries)
 exportMethods(twdtwXtable)
+exportMethods(writeRaster)
 import(ggplot2)
 import(methods)
 import(raster)

diff --git a/NEWS.md b/NEWS.md
@@ -4,14 +4,16 @@
 
   Include the function twdtwApplyParallel for TWDTW parallel processing using the package snow 
 
+  Include writeRaster for twdtwRaster class 
+
   Improve tests and documentation 
 
-* Fixing bugs
-
   Improve memory usage of twdtwApply 
 
   Improve memory usage and speed of twdtwClassify 
 
+* Fixing bugs
+
   Fix bug in twdtwAssess for class twdtwMatches 
 
   Fix bug in twdtwRaster 

diff --git a/R/methods.R b/R/methods.R
@@ -66,6 +66,10 @@ extent.twdtwRaster = function(x){
   extent(x@timeseries[[1]])
 }
 
+writeRaster.twdtwRaster = function(x, filepath, ...){
+  lapply(names(x@timeseries), function(i) writeRaster(x@timeseries[[i]], filename = paste0(filepath, "/", i, ".grd"), ...))
+}
+
 projection.twdtwRaster = function(x){
   projection(x@timeseries[[1]])
 }
@@ -163,6 +167,15 @@ setMethod(f = "res", "twdtwRaster",
 setMethod(f = "extent", "twdtwRaster",
           definition = extent.twdtwRaster)
 
+#' @inheritParams twdtwRaster-class
+#' @rdname twdtwRaster-class
+#' @export
+setMethod("writeRaster", "twdtwRaster", 
+          definition = function(x, filepath = ".", ...) {
+            writeRaster.twdtwRaster(x, filepath, ...)
+          }
+)
+
 #' @inheritParams twdtwRaster-class
 #' @rdname twdtwRaster-class
 #' @export

diff --git a/man/twdtwRaster-class.Rd b/man/twdtwRaster-class.Rd