[Rd] Bug when importing datas with tcltk window (PR#13191)

From: <bastien.preuss_at_noumea.ird.nc>
Date: Wed, 22 Oct 2008 08:10:03 +0200 (CEST)


Full_Name: PREUSS Bastien
Version: R version 2.6.2 (2008-02-08)
OS: mingw32
Submission from: (NULL) (193.51.249.166)

Hello,

I wrote a small function using tcltk to import my datasets. When I use it, both the tcltk and the R windows closed themselves. I don't understand why. What is surprising is that it doesn’t happen each time. Most of the time I can't finish the importation of my 3 data folders, but sometimes I am successful.

Here is my function:

require(tcltk)

import.donnees.f = function() {

####

openObservations.f = function(){
  name1<-tclvalue(tkgetOpenFile())
    if (!nchar(name1))

      tkmessageBox(message="Aucun fichier n'a été sélectionné!")  else
      tkmessageBox(message=paste("Vous avez sélectionné le fichier ",name1))
  assign("fileName",name1,envir=.GlobalEnv)
}

openUnitobs.f = function(){
  name2<-tclvalue(tkgetOpenFile())
    if (!nchar(name2))

      tkmessageBox(message="Aucun fichier n'a été sélectionné!")  else
      tkmessageBox(message=paste("Vous avez sélectionné le fichier ",name2))
  assign("fileName2",name2,envir=.GlobalEnv)
}

openListespeces.f = function(){
  name3<-tclvalue(tkgetOpenFile())
    if (!nchar(name3))

      tkmessageBox(message="Aucun fichier n'a été sélectionné!")  else
      tkmessageBox(message=paste("Vous avez sélectionné le fichier ",name3))
  assign("fileName3",name3,envir=.GlobalEnv)
}

tt <- tktoplevel()
tkwm.title(tt,"Import des fichiers de données")

button.widget <- tkbutton(tt,text="Table de données d'observations              
                                      ",command=openObservations.f)
button.widget2 <- tkbutton(tt,text="Table de données sur les unités
d'observation                             ",command=openUnitobs.f)
button.widget3 <- tkbutton(tt,text="Table de données sur les espèces            
                                      ",command=openListespeces.f)
OK.but <- tkbutton(tt,text="               Valider               
",command=function() tkdestroy(tt))
tkpack(button.widget,button.widget2,button.widget3,OK.but) tkfocus(tt)
tkwait.window(tt)

}



R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Wed 22 Oct 2008 - 10:18:50 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 22 Oct 2008 - 12:30:22 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.

list of date sections of archive