From eb615c9bd374640fc57c7d433a3f6d51a1a79ea7 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sun, 23 Nov 2014 14:07:36 +0100
Subject: Avoid warning triggered by models with parallel metabolites

---
 inst/GUI/gmkin.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'inst/GUI')

diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index e0730cd..693a038 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -608,7 +608,7 @@ keep_m_changes_handler <- function(h, ...) {
     spec[[obs.i]] <- list(type = svalue(m.e.type[[obs.i]]),
                           to = to_vector,
                           sink = svalue(m.e.sink[[obs.i]]))
-    if(spec[[obs.i]]$to == "") spec[[obs.i]]$to = NULL
+    if(spec[[obs.i]]$to[[1]] == "") spec[[obs.i]]$to = NULL
     names(spec)[[obs.i]] <- svalue(m.e.obs[[obs.i]])
   }
   m[[m.cur]] <<- mkinmod(use_of_ff = svalue(m.ff.gc), 
-- 
cgit v1.2.1