[Sciviews-commits] r162 - in pkg/svTools: . R

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

Author: romain
Date: 2009-08-06 13:28:57 +0200 (Thu, 06 Aug 2009)
New Revision: 162

Modified:
   pkg/svTools/DESCRIPTION
   pkg/svTools/R/checkUsage.R
Log:
removed non ACSCII character (R CMD check complaint)

Modified: pkg/svTools/DESCRIPTION
===================================================================
--- pkg/svTools/DESCRIPTION	2009-07-30 09:27:00 UTC (rev 161)
+++ pkg/svTools/DESCRIPTION	2009-08-06 11:28:57 UTC (rev 162)
@@ -1,8 +1,8 @@
 Package: svTools
 Type: Package
 Title: SciViews GUI API - Tools (wrapper for packages tools and codetools)
-Version: 0.0-8
-Date: 2009-06-29
+Version: 0.0-9
+Date: 2009-08-06
 Author: Romain Francois <francoisromain at free.fr>
 Maintainer: Romain Francois <francoisromain at free.fr>
 Description: Set of tools aimed at wrapping some of the functionalities

Modified: pkg/svTools/R/checkUsage.R
===================================================================
--- pkg/svTools/R/checkUsage.R	2009-07-30 09:27:00 UTC (rev 161)
+++ pkg/svTools/R/checkUsage.R	2009-08-06 11:28:57 UTC (rev 162)
@@ -103,7 +103,7 @@
 			fname <- ls( env ) 
 			if( length(fname) == 1){
 				findings <- NULL
-				codetools:::checkUsage( env[[fname]], all = TRUE, report = report, name = "" )
+				checkUsage( env[[fname]], all = TRUE, report = report, name = "" )
 				if( length(findings) ){
 					
 					searchAndReport( "changed by assignment"                , find.parameter_changed_by_assignment) 
@@ -113,7 +113,7 @@
 					searchAndReport( "multiple local function definitions"  , find.multiple_local_def )  
 					
 					# TODO :this needs to be improved to deal with nested functions
-					if( length( test.assign <- grep( "’ may not be used", findings ) ) ){
+					if( length( test.assign <- grep( " may not be used", findings ) ) ){
 						for( j in test.assign ){
 							..addError( attr(p.out, "srcref")[[i]][1]  , findings[j] )
 						}
@@ -126,6 +126,7 @@
 	getErrors( file = file )
 }
 
+
 as_character_srcref <- function (x, useSource = TRUE, encoding = "unknown"){
     srcfile <- attr(x, "srcfile")
     if (useSource)
@@ -150,5 +151,3 @@
 		return(lines)
 }
 
-
-