diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-03-21 10:11:33 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-03-21 10:11:33 +0100 |
| commit | d10d8c090a838ab709da14046bc33e5a67db6104 (patch) | |
| tree | 03f11c6c92e5c7da7715f110ccea7e736f2d5095 /inst/GUI/gmkin.R | |
| parent | 55d22b1262f009368162c7158fd636fbba2aa175 (diff) | |
Update interval variabel list on saving a dataset, fixes #1
Diffstat (limited to 'inst/GUI/gmkin.R')
| -rw-r--r-- | inst/GUI/gmkin.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index 6de4de2..40045e9 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -391,6 +391,7 @@ 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)
|