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

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

Author: rhijmans
Date: 2009-03-09 10:03:41 +0100 (Mon, 09 Mar 2009)
New Revision: 334

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


Modified: pkg/raster/R/cellStats.R
===================================================================
--- pkg/raster/R/cellStats.R	2009-03-09 05:55:04 UTC (rev 333)
+++ pkg/raster/R/cellStats.R	2009-03-09 09:03:41 UTC (rev 334)
@@ -10,12 +10,7 @@
 		stop('you must provide a function as argument')
 	}
 	
-	for(i in seq(along=funs)) {
-		if (class(funs[[i]]) != 'function') {
-			stop('only functions are allowed as ... arguments')
-		}
-	}
-	
+
 	res <- list()
 	if (dataContent(x) != 'all') {
 		if (dataSource(x) == 'ram') {