From 9983fd9311ea9d6d35fa05478471ab77c9ddb064 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 25 Aug 2014 18:34:09 +0200
Subject: Option to show fitting progress in separate graphics device

Turned off by default as it may be irritating to have another window pop
up
---
 inst/GUI/gmkin.R | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'inst')

diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index ff98c32..f18f744 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -236,6 +236,7 @@ configure_fit_handler = function(h, ...) {
           ftmp$ds <<- ds[[ds.i]]
           stmp <<- summary(ftmp)
           svalue(pf) <- paste0("Dataset ", ds.i, ", Model ", m[[m.i]]$name)
+          svalue(f.gg.opts.plot) <<- FALSE
           svalue(f.gg.opts.st) <<- ftmp$solution_type
           svalue(f.gg.opts.weight) <<- ftmp$weight
           svalue(f.gg.opts.atol) <<- ftmp$atol
@@ -712,6 +713,7 @@ run_fit <- function() {
                    fixed_initials = inifixed,
                    parms.ini = deparms, 
                    fixed_parms = defixed,
+                   plot = svalue(f.gg.opts.plot),
                    solution_type = svalue(f.gg.opts.st),
                    atol = as.numeric(svalue(f.gg.opts.atol)),
                    rtol = as.numeric(svalue(f.gg.opts.rtol)),
@@ -863,6 +865,8 @@ f.gg.parms$set_column_width(5, 60)
 # Fit options form {{{4
 f.gg.opts <- gformlayout(cont = f.gn, label = "Fit options")
 solution_types <- c("auto", "analytical", "eigen", "deSolve")
+f.gg.opts.plot <- gcheckbox("plot",
+                         cont = f.gg.opts, checked = FALSE)
 f.gg.opts.st <- gcombobox(solution_types, selected = 1,
                           label = "solution_type", width = 200,
                           cont = f.gg.opts)
-- 
cgit v1.2.1