[GRASS-SVN] r53934 - grass-addons/grass6/raster/r.mess

[svn_grass at osgeo.org]

Author: pvanbosgeo
Date: 2012-11-20 04:10:53 -0800 (Tue, 20 Nov 2012)
New Revision: 53934

Modified:
   grass-addons/grass6/raster/r.mess/r.mess
Log:
bug fix

Modified: grass-addons/grass6/raster/r.mess/r.mess
===================================================================
--- grass-addons/grass6/raster/r.mess/r.mess	2012-11-20 10:53:11 UTC (rev 53933)
+++ grass-addons/grass6/raster/r.mess/r.mess	2012-11-20 12:10:53 UTC (rev 53934)
@@ -291,7 +291,7 @@
         system("g.remove -f rast=MASK")
         
         # Create the string with pairs of x-y values
-        x1 <- as.numeric(rownames(a))
+        x1 <- round(as.numeric(rownames(a)), nchar((1/digits)-1))
         x2 <- format(c(x1[-1],envmax+digits), scientific=FALSE, trim=TRUE)  
         x3 <- format(x1 + digits, scientific = FALSE, trim=TRUE)
         a1 <- paste(x1,x3,sep=",", collapse=",")