diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-11-09 17:57:35 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-11-09 17:57:35 +0000 |
| commit | 42a415484fd632116e6fd19a00761e9142240706 (patch) | |
| tree | 633dd12e56b71d32d56e7cc36af35f00633759dc /inst | |
| parent | ffcd126b35a1ad48c8064f52f3dd4eb9c3f86876 (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')
| -rw-r--r-- | inst/GUI/mkinGUI.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/inst/GUI/mkinGUI.R b/inst/GUI/mkinGUI.R index 0bfe175c..fb8f22ab 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()
|