[Sciviews-commits] r67 - pkg/svTools/R

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

Author: romain
Date: 2008-11-03 12:36:23 +0100 (Mon, 03 Nov 2008)
New Revision: 67

Modified:
   pkg/svTools/R/rdparse.R
Log:
converting to integers

Modified: pkg/svTools/R/rdparse.R
===================================================================
--- pkg/svTools/R/rdparse.R	2008-11-03 09:18:29 UTC (rev 66)
+++ pkg/svTools/R/rdparse.R	2008-11-03 11:36:23 UTC (rev 67)
@@ -7,8 +7,8 @@
 	names. <- sapply( chunks, function(x) x[1] %-~% "(^\\\\|{.*$)"  )
 	
 	cs <- cumsum( c(0, nchar( rdfile ) )  )
-	offset.start <- cs[ sapply( 1:max(index), function(i) which(index==i)[1] ) ]
-	offset.end   <- cs[ 1 + sapply( 1:max(index), function(i) tail( which(index==i), 1 ) ) ]
+	offset.start <- as.integer( cs[ sapply( 1:max(index), function(i) which(index==i)[1] ) ]             )
+	offset.end   <- as.integer( cs[ 1 + sapply( 1:max(index), function(i) tail( which(index==i), 1 ) ) ] )    
 	
 	list( offset.start = offset.start, 
 	  offset.end = offset.end,