making addReact a method 1

R/addReact.R

@@ -31,7 +31,8 @@
 # The algorithm is (more or less) the same.
 
 
-addReact <- function(model,
+setMethod("addReact", signature(model = "modelorg"),
+	function(model,
 			id,
 			met,
 			Scoef,
@@ -410,5 +411,5 @@ addReact <- function(model,
 
     return(mod_out)
 
-}
+})
 

R/generics.R

@@ -38,6 +38,10 @@ setGeneric(name = "addColsToProb",
            def  = function(lp, ...) { standardGeneric("addColsToProb") }
 )
 
+setGeneric(name = "addReact",
+           def  = function(model, ...) { standardGeneric("addReact") }
+)
+
 setGeneric(name = "addRows",
            def  = function(lp, nrows, ...) { standardGeneric("addRows") }
 )

inst/NEWS.Rd

@@ -6,6 +6,12 @@
 
 \newcommand{\CRANpkg}{\href{http://CRAN.R-project.org/package=#1}{\pkg{#1}}}
 
+\section{Changes in version 2.0.4 2017-07-17}{
+  \itemize{
+  	\item \code{addReact} is now a method of the \code{modelorg} class.
+  }
+}
+% ---------------------------------------------------------------------------- %
 \section{Changes in version 2.0.3 2017-04-20}{
   \itemize{
   	\item Preparation for \code{sybilNLO}.