aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-07-16 09:31:25 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-07-16 09:37:35 +0200
commitc6460f91802c3a57e28be52b841bcd7fa938fb43 (patch)
tree5b594a54214a4705ce3b55c2ceade5483cbaa054 /inst/GUI
parent38e80ae890d2bd0eecc831c37b0937e54ed23be3 (diff)
Fix sorting in fit list, add NEWS file
Diffstat (limited to 'inst/GUI')
-rw-r--r--inst/GUI/gmkin.R5
1 files changed, 3 insertions, 2 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 7566824..12d5d14 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -47,7 +47,7 @@ ds.df <- data.frame()
m.df <- data.frame()
f.df <- data.frame()
# Empty versions of meta data {{{2
-f.df.empty <- data.frame(Fit = "0",
+f.df.empty <- data.frame(Fit = as.integer(0),
Dataset = "",
Model = "",
stringsAsFactors = FALSE)
@@ -92,7 +92,8 @@ update_f.df <- function() {
for (fit.index in names(f)) {
f.count <- f.count + 1
ftmp <- f[[fit.index]]
- f.df[f.count, ] <<- c(as.character(f.count), ftmp$ds.index, ftmp$mkinmod$name)
+ f.df[f.count, "Fit"] <<- as.integer(f.count)
+ f.df[f.count, c("Dataset", "Model")] <<- c(ftmp$ds.index, ftmp$mkinmod$name)
}
}
# Initialise meta data objects {{{1

Contact - Imprint