aboutsummaryrefslogtreecommitdiff
path: root/R/gmkinws.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-10-25 01:10:34 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2015-10-25 02:38:11 +0200
commit90076c885d53017046f4c0dd50839f6548fab0fb (patch)
tree45a06cdbebbc8c5e041a34b0ff655347739dcfcb /R/gmkinws.R
parent7306b336702980f0e4ec0fb8c6fb6034971f0357 (diff)
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
Diffstat (limited to 'R/gmkinws.R')
-rw-r--r--R/gmkinws.R7
1 files changed, 7 insertions, 0 deletions
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 = ", "))

Contact - Imprint