aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-05-05 17:54:09 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-05-05 17:54:09 +0200
commitf038970418668c47650957ea7d87bab33a28c9c9 (patch)
tree5268bdf08d94034b08670c8aec87e688d7046e87
parent52227a9a9dba06d42ad7939ab574c9e71bdc940e (diff)
Update initials selection, separate out handler function
- Write a separate handler function for the Configure button for easier debugging - Update the selection combobox for initial values after pressing the Keep fit button
-rw-r--r--inst/GUI/gmkin.R14
1 files changed, 10 insertions, 4 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 1c56742..ae9d88d 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -224,8 +224,7 @@ m.gtable$set_column_width(1, 40)
m.gtable$value <- 1
# Button for setting up a fit for the selected dataset and model {{{2
-gbutton("Configure fit for selected model and dataset", cont = dsm,
- handler = function(h, ...) {
+configure_fit_handler = function(h, ...) {
ds.i <<- as.character(svalue(ds.gtable))
m.i <<- as.character(svalue(m.gtable))
ftmp <<- suppressWarnings(mkinfit(m[[m.i]],
@@ -240,6 +239,8 @@ gbutton("Configure fit for selected model and dataset", cont = dsm,
svalue(f.gg.opts.weight) <<- ftmp$weight
svalue(f.gg.opts.atol) <<- ftmp$atol
svalue(f.gg.opts.rtol) <<- ftmp$rtol
+ svalue(f.gg.opts.transform_rates) <<- ftmp$transform_rates
+ svalue(f.gg.opts.transform_fractions) <<- ftmp$transform_fractions
svalue(f.gg.opts.reweight.method) <<- ifelse(
is.null(ftmp$reweight.method),
"none", ftmp$reweight.method)
@@ -255,7 +256,9 @@ gbutton("Configure fit for selected model and dataset", cont = dsm,
svalue(f.gg.summary) <- c("<pre>", capture.output(stmp), "</pre>")
options(width = oldwidth)
svalue(center) <- 3
- })
+}
+gbutton("Configure fit for selected model and dataset", cont = dsm,
+ handler = configure_fit_handler)
# Fits {{{1
f.gf <- gframe("Fits", cont = left, horizontal = FALSE)
@@ -776,7 +779,7 @@ run.fit.gb <- gbutton("Run", width = 100,
f.gg.buttons)
tooltip(run.fit.gb) <- "Fit with current settings on the current dataset, with the original model"
-keep.fit.gb <- gbutton("Keep",
+keep.fit.gb <- gbutton("Keep fit",
handler = function(h, ...) {
f.cur <<- as.character(length(f) + 1)
f[[f.cur]] <<- ftmp
@@ -787,6 +790,9 @@ keep.fit.gb <- gbutton("Keep",
f.gg.po.obssel <<- gcheckboxgroup(names(ftmp$mkinmod$spec),
cont = f.gg.plotopts,
checked = TRUE)
+ delete(f.gg.buttons, get.initials.gc)
+ get.initials.gc <<- gcombobox(paste("Fit", f.df$Fit),
+ cont = f.gg.buttons)
}, cont = f.gg.buttons)
tooltip(keep.fit.gb) <- "Store the optimised model with all settings and the current dataset in the fit list"

Contact - Imprint