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

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

Author: rhijmans
Date: 2009-09-10 08:07:28 +0200 (Thu, 10 Sep 2009)
New Revision: 488

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


Modified: pkg/raster/R/writeAscii.R
===================================================================
--- pkg/raster/R/writeAscii.R	2009-09-10 04:29:48 UTC (rev 487)
+++ pkg/raster/R/writeAscii.R	2009-09-10 06:07:28 UTC (rev 488)
@@ -14,9 +14,9 @@
 	
 	if (dataIndices(raster)[1] == 1) {
 		resdif <- abs((yres(raster) - xres(raster)) / yres(raster) )
-		if (resdif > 0.001) {
+		if (resdif > 0.01) {
 			stop(paste("raster has unequal horizontal and vertical resolutions","\n", "these data cannot be stored in arc-ascii format"))
-		} else if (resdif > 0.00001) {
+		} else if (resdif > 0.001) {
 			warning("arc-ascii format ignore that this raster has slightly unequal horizontal and vertical resolutions")
 		}
 		if (!overwrite & file.exists(filename)) {