From bfe2ceedb953a1fb1cc6ea2af413cbb391a4a5e2 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 28 Apr 2014 12:25:03 +0200
Subject: Fix uploading of workspace files

---
 inst/GUI/gmkin.R | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'inst')

diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index a7f303d..422be57 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -170,6 +170,9 @@ upload_file_handler <- function(h, ...)
     ftmp <<- f[[f.cur]]
     stmp <<- s[[f.cur]]
     ds.i <<- ds.cur
+    delete(f.gg.plotopts, f.gg.po.obssel)
+    f.gg.po.obssel <<- gcheckboxgroup(names(ftmp$mkinmod$spec), cont = f.gg.plotopts, 
+                                     checked = TRUE)
     update_plotting_and_fitting()
   } else {
     f.df <<- f.df.empty
-- 
cgit v1.2.1