From b0f13f2965e8d2e56f0d97acd32358802f57c803 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 21 Mar 2014 10:16:38 +0100 Subject: Small variation to last commit, in reality fixes #2 --- inst/GUI/gmkin.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'inst') 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 -- cgit v1.2.1