diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-23 14:07:36 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-23 14:07:36 +0100 |
| commit | eb615c9bd374640fc57c7d433a3f6d51a1a79ea7 (patch) | |
| tree | a19bfd04d15f6c361ca1c2a914028d93b3224b78 /inst/GUI | |
| parent | 6e4d32c186108ef4a8b1518299732ec82baa3f9b (diff) | |
Avoid warning triggered by models with parallel metabolites
Diffstat (limited to 'inst/GUI')
| -rw-r--r-- | inst/GUI/gmkin.R | 2 |
1 files changed, 1 insertions, 1 deletions
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),
|