From 8b4fe75e55534f3bfc38f612431453e59d22084e Mon Sep 17 00:00:00 2001
From: Claus Jonathan Fritzemeier <clausjonathan.fritzemeier@hhu.de>
Date: Thu, 28 Jan 2016 15:47:36 +0100
Subject: [PATCH] bug fix in addReact
---
R/addReact.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/addReact.R b/R/addReact.R
index b7fe5c2..101842d 100644
--- a/R/addReact.R
+++ b/R/addReact.R
@@ -319,7 +319,7 @@ addReact <- function(model,
irrev(mod_out) <- TRUE
matchrev(mod_out) <- append(matchrev(model), 0L)
- revReactId <- max(irrev2rev(model))+1
+ revReactId <- as.integer(max(irrev2rev(model))+1)
irrev2rev(mod_out) <- append(irrev2rev(model), revReactId)
rev2irrev(mod_out) <- rbind(rev2irrev(model), c(nCols, nCols))
}
--
GitLab