aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI/gmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-03-21 10:16:38 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2014-03-21 10:16:38 +0100
commitb0f13f2965e8d2e56f0d97acd32358802f57c803 (patch)
tree275e1f901f5e5d256490f425e444a52005793e0e /inst/GUI/gmkin.R
parentd10d8c090a838ab709da14046bc33e5a67db6104 (diff)
Small variation to last commit, in reality fixes #2
Diffstat (limited to 'inst/GUI/gmkin.R')
-rw-r--r--inst/GUI/gmkin.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 40045e9..2be7970 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -391,11 +391,11 @@ keep_ds_changes_handler <- function(h, ...) {
ds[[ds.cur]]$sampling_times <<- sort(unique(tmpd$time))
ds[[ds.cur]]$time_unit <<- svalue(ds.e.stu)
ds[[ds.cur]]$observed <<- unique(tmpd$name)
- observed.all <<- union(observed.all, ds[[ds.cur]]$observed)
ds[[ds.cur]]$unit <<- svalue(ds.e.obu)
ds[[ds.cur]]$replicates <<- max(aggregate(tmpd$time,
list(tmpd$time, tmpd$name), length)$x)
update_ds_editor()
+ observed.all <<- union(observed.all, ds[[ds.cur]]$observed)
}
# Widget setup {{{3

Contact - Imprint