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

[svn_grass at osgeo.org]

Author: pvanbosgeo
Date: 2012-11-12 02:28:13 -0800 (Mon, 12 Nov 2012)
New Revision: 53772

Modified:
   grass-addons/grass6/raster/r.mess/r.mess
Log:
Changed way the point data are read by R: not the whole vector layer but only the attribute table

Modified: grass-addons/grass6/raster/r.mess/r.mess
===================================================================
--- grass-addons/grass6/raster/r.mess/r.mess	2012-11-11 20:12:41 UTC (rev 53771)
+++ grass-addons/grass6/raster/r.mess/r.mess	2012-11-12 10:28:13 UTC (rev 53772)
@@ -217,7 +217,11 @@
 cln <- args[6]
 
 # Import the vector point layer
-spl <- readVECT6(vtl)
+#spl <- readVECT6(vtl) # replace with below
+b <- execGRASS("v.db.select", parameters=list(map="vtl"), intern=TRUE)
+con <- textConnection(b)
+spl <- read.table(con, header=TRUE, sep="|")
+close(con)
 
 # Extract columns and create table
 # Use column names if given, otherwise,