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

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

Author: jacobvanetten
Date: 2009-01-28 04:50:43 +0100 (Wed, 28 Jan 2009)
New Revision: 198

Modified:
   pkg/raster/R/adjacency.R
Log:
Don't use all.equal directly in if expressions

Modified: pkg/raster/R/adjacency.R
===================================================================
--- pkg/raster/R/adjacency.R	2009-01-28 02:34:30 UTC (rev 197)
+++ pkg/raster/R/adjacency.R	2009-01-28 03:50:43 UTC (rev 198)
@@ -26,7 +26,7 @@
 	if (isLatLon(raster)) {
 		tolerance <- 0.1
 		scale <- xres(raster)
-		if (all.equal(xmin(raster), -180, tolerance=tolerance, scale=scale) & all.equal(xmax(raster), 180, tolerance=tolerance, scale=scale)) {
+		if (isTRUE(all.equal(xmin(raster), -180, tolerance=tolerance, scale=scale)) & isTRUE(all.equal(xmax(raster), 180, tolerance=tolerance, scale=scale))) {
 			outerMeridianConnect <- TRUE
 		}
 	}