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

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

Author: romain
Date: 2008-11-03 14:30:19 +0100 (Mon, 03 Nov 2008)
New Revision: 68

Modified:
   pkg/svTools/R/errorlist.R
Log:
making sure line is of type integer

Modified: pkg/svTools/R/errorlist.R
===================================================================
--- pkg/svTools/R/errorlist.R	2008-11-03 11:36:23 UTC (rev 67)
+++ pkg/svTools/R/errorlist.R	2008-11-03 13:30:19 UTC (rev 68)
@@ -55,7 +55,10 @@
 	if( ! is.null(file) ){
 		out <- out[ out$file == tools:::file_path_as_absolute(file) , ]
 	}
-	if( nrow( out ) ) out[ order( out$file, out$line) , ] else emptyError() 
+	if( nrow( out ) ) {
+		out <- out[ order( out$file, out$line) , ]
+		out$line <- as.integer( out.line )
+	} else emptyError() 
 }
 
 #' Creates an empty structured error