From c6460f91802c3a57e28be52b841bcd7fa938fb43 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 16 Jul 2014 09:31:25 +0200
Subject: Fix sorting in fit list, add NEWS file

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

(limited to 'inst/GUI')

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
-- 
cgit v1.2.1