aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI/mkinGUI.R
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-11-09 17:57:35 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-11-09 17:57:35 +0000
commit42a415484fd632116e6fd19a00761e9142240706 (patch)
tree633dd12e56b71d32d56e7cc36af35f00633759dc /inst/GUI/mkinGUI.R
parentffcd126b35a1ad48c8064f52f3dd4eb9c3f86876 (diff)
GUI: Fixed a bug that occurred when deleting the last fit from the fit list
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@149 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'inst/GUI/mkinGUI.R')
-rw-r--r--inst/GUI/mkinGUI.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/inst/GUI/mkinGUI.R b/inst/GUI/mkinGUI.R
index 0bfe175..fb8f22a 100644
--- a/inst/GUI/mkinGUI.R
+++ b/inst/GUI/mkinGUI.R
@@ -694,7 +694,7 @@ delete.fit.gb <- gbutton("Delete", handler = function(h, ...) {
f[[f.cur]] <<- NULL
s[[f.cur]] <<- NULL
}
- if(length(f) > 1) {
+ if (length(f) > 0) {
names(f) <<- as.character(1:length(f))
names(s) <<- as.character(1:length(f))
update_f.df()

Contact - Imprint