upgradeModelorg had a bug

DESCRIPTION

 Package: sybil
 Type: Package
 Title: Efficient Constrained Based Modelling in R
-Version: 2.0.0
-Date: 2016-05-12
+Version: 2.0.1
+Date: 2016-05-25
 Authors@R: c(
 	     person(c("C.", "Jonathan"), "Fritzemeier", role = c("cre", "ctb"), email = "clausjonathan.fritzemeier@uni-duesseldorf.de"),
 	     person("Gabriel", "Gelius-Dietrich", role = c("aut")),
@@ -53,7 +53,7 @@ Collate: generics.R validmodelorg.R validoptsol.R validreactId.R
         sysBiolAlg_lmomaClass.R sysBiolAlg_momaClass.R
         sysBiolAlg_mtfClass.R sysBiolAlg_mtfEasyConstraintClass.R
         sysBiolAlg_roomClass.R sybilLogClass.R upgradeModelorg.R
-Packaged: 2016-05-12 12:34:14 UTC; jonathan
+Packaged: 2016-05-25 12:34:14 UTC; jonathan
 Author: C. Jonathan Fritzemeier [cre, ctb],
   Gabriel Gelius-Dietrich [aut],
   Rajen Piernikarczyk [ctb],

R/upgradeModelorg.R

@@ -41,8 +41,14 @@ upgradeModelorg <- function(object){
 		
 		# update gprRules to new format
 		rules <- lapply(gpr(object), .parseBoolean)
-		genes(object) <- sapply(rules, "[[", "gene")
+		if(length(rules) == 0){
+			genes(object) <- list()
+			gprRules(object) <- character(0)
+		}else{
+			genes(object) <- lapply(rules, "[[", "gene")
 			gprRules(object) <- sapply(rules, "[[", "rule")
+		}
+		
 		
 		# set attribute slots
 		react_attr(object) <- data.frame()

inst/NEWS.Rd

@@ -6,6 +6,13 @@
 
 \newcommand{\CRANpkg}{\href{http://CRAN.R-project.org/package=#1}{\pkg{#1}}}
 
+\section{Changes in version 2.0.1 2016-07-05}{
+  \itemize{
+  	\item \code{upgradeModelorg} was not working correctly, when all gprRules
+  	are empty.
+  }
+}
+% ---------------------------------------------------------------------------- %
 \section{Changes in version 2.0.0 2016-05-17}{
   \itemize{
   	\item \code{modelorg}-class has changed and thus a slot \code{version} was introduced.