.parseboolean fix for empty gpr like "( )"

R/parseBoolean.R

@@ -32,6 +32,7 @@
 
 
 .parseBoolean <- function(gprRule, tokens = "()&|~") {
+	print(gprRule)
 
 #.parseBoolean <- function(gprRule,
 #                          tokens = "()&|~",
@@ -42,6 +43,11 @@
       return(list(gene = "", rule = ""))
   }
   
+  if( grepl("\\s*\\(\\s*\\)\\s*", gprRule) ){
+  	warning("found empty expression rule: '( )'. check if this is intended.")
+  	return(list(gene = "", rule = ""))
+  }
+
   # quit, if there is no gene association
 #  if ( (gprRule == "UNKNOWN") || (gprRule == "SPONTANEOUS") ) {
 #      return(list(gene = "", rule = ""))
@@ -168,18 +174,6 @@
 
 
   
-
-
-
-
-
-
-
-
-
-
-
-  
 #  for (i in 1:length(genes[[1]])) {
 #      #current_tok <- gsub("(^\\s+)|(\\s+$)", "", genes[[1]][i], perl = TRUE)
 #      current_tok <- genes[[1]][i]

inst/NEWS.Rd

@@ -14,6 +14,7 @@
     \item modified \code{multiDel} to not use \code{require}
     \item \code{doubleFluxDel} had a bug if \code{react1} or \code{react2} contained duplicated entries.
     \item documentation of \code{hasEffect} in \code{optsol_genedel} is now clearer.
+    \item \code{.parseBoolean} now gives a warning, but handles empty gpr in a intuitive way.
   }
 }