[Raster-commits] r339 - pkg/raster/R

[noreply at r-forge.r-project.org]

Author: rhijmans
Date: 2009-03-10 07:19:11 +0100 (Tue, 10 Mar 2009)
New Revision: 339

Modified:
   pkg/raster/R/aggregate.R
Log:


Modified: pkg/raster/R/aggregate.R
===================================================================
--- pkg/raster/R/aggregate.R	2009-03-10 01:49:32 UTC (rev 338)
+++ pkg/raster/R/aggregate.R	2009-03-10 06:19:11 UTC (rev 339)
@@ -55,7 +55,7 @@
 			outRaster <- setValues(outRaster, as.vector(tapply(values(x), cells, fun))) 
 		}
 		if (filename(outRaster) != "") {
-			outRaster <- writeRaster(outRaster, overwrite=overwrite, filetype=filetype, datatype=datatype)
+			outRaster <- writeRaster(outRaster, overwrite=overwrite, filetype=filetype)
 		}
 
 	} else if ( dataSource(x) == 'disk') { 
@@ -94,7 +94,7 @@
 				v <- c(v, vals)
 			} else {
 				outRaster <- setValues(outRaster, vals, r)
-				outRaster <- writeRaster(outRaster, overwrite=overwrite, filetype=filetype, datatype=datatype)
+				outRaster <- writeRaster(outRaster, overwrite=overwrite, filetype=filetype)
 			}
 			
 			if (r %in% track) { .showTrack(r, track, starttime) }