diff --git a/DESCRIPTION b/DESCRIPTION index bc7a4d2cf6e6ef3da728e4f944db641d2809569d..f62fff49383167024761eb0b76f5f7f0670e788b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,7 +2,7 @@ Package: sybil Type: Package Title: Efficient Constrained Based Modelling in R Version: 2.0.3 -Date: 2017-04-20 +Date: 2017-07-12 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: 2017-04-20 12:34:14 UTC; jonathan +Packaged: 2017-07-12 12:34:14 UTC; jonathan Author: C. Jonathan Fritzemeier [cre, ctb], Gabriel Gelius-Dietrich [aut], Rajen Piernikarczyk [ctb], diff --git a/R/rmReact.R b/R/rmReact.R index c420d70941bb3161316ccfcf208bf212cbbf25f3..d50623627354e6ea8be4267262217e346e286e1a 100644 --- a/R/rmReact.R +++ b/R/rmReact.R @@ -135,7 +135,7 @@ rmReact <- function(model, react, rm_met = TRUE) { react_de(mod_out) <- react_de(model)[keepReact] if(ncol(react_attr(model))>0){ - react_attr(mod_out) <- react_attr(model)[keepReact, ] + react_attr(mod_out) <- react_attr(model)[keepReact, , drop=F] } react_num(mod_out) <- length(react_id(mod_out)) @@ -204,7 +204,7 @@ rmReact <- function(model, react, rm_met = TRUE) { met_de(mod_out) <- met_de(model)[keepMet] if(ncol(met_attr(model))>0){ - met_attr(mod_out) <- met_attr(model)[keepMet, ] + met_attr(mod_out) <- met_attr(model)[keepMet, , drop=F] } } else { diff --git a/inst/NEWS.Rd b/inst/NEWS.Rd index 620fda7b99bb7570c3023c66807944a182c6c2e9..ad994a13064b08be28cccc42414a6bea5794904b 100644 --- a/inst/NEWS.Rd +++ b/inst/NEWS.Rd @@ -6,9 +6,10 @@ \newcommand{\CRANpkg}{\href{http://CRAN.R-project.org/package=#1}{\pkg{#1}}} -\section{Changes in version 2.0.3 2017-04-20}{ +\section{Changes in version 2.0.3 2017-07-12}{ \itemize{ \item The function \code{genrateWT} caused a problem when setting only \code{solverParm} and no solver. + \item \code{rmReact} handles now \code{react_attr} and \code{met_attr} corretly, if there is just one column. } } % ---------------------------------------------------------------------------- %