Bonjour,

Je souhaite implémenter une fonction d'exportation qui permette de sauver des objets tableaux R en format texte.
Pour l'instant je procède comme suit mais rien ne se passe...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
#Implémentation de la fonction d'export 
OnOK <- function(){
  	 ob <- obj[as.numeric(tkcurselection(tl))+1]
  	 ob2 <- eval(parse(text=ob))
  	 assign("ob",ob,envir=.GlobalEnv)
         ob2<-tclvalue(tkgetSaveFile())
         if (!nchar(ob2))
              tkmessageBox(message="Aucun fichier n'a été sélectionné!",icon="info",type="ok") else            
              tkmessageBox(message=paste("The file selected was",ob2),,icon="info",type="ok")
      }
Si quelqu'un a une idée pour résoudre le problème...
Merci d'avance.