From 90076c885d53017046f4c0dd50839f6548fab0fb Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sun, 25 Oct 2015 01:10:34 +0200
Subject: Working state

- Added add_f method to gmkinws
- Showing the plot works
- delete and keep fit buttons in Results
- Add result naming
- Improve plot title
---
 R/gmkinws.R | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'R')

diff --git a/R/gmkinws.R b/R/gmkinws.R
index 9ef68e1..f43c8a1 100644
--- a/R/gmkinws.R
+++ b/R/gmkinws.R
@@ -131,6 +131,13 @@ gmkinws <- R6Class("gmkinws",
       invisible(self)
     },
 
+    add_f = function(f) {
+      if (is.na(self$f[1])) self$f <- plyr::compact(f)
+      else self$f = append(self$f, plyr::compact(f))
+      
+      invisible(self)
+    },
+
     delete_f = function(i) {
       if (any(sapply(self$f[i], is.null))) 
         stop("Could not delete fit(s) ", paste(i, collapse = ", "))
-- 
cgit v1.2.1