Discussion :

[habasque]

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.

[hoccha]

Bonjour,

Je ne comprend pas ton code mais je crois que tu peux simplement utiliser la fonction write.table()?

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 dataF <- data.frame(V1=runif(10) , V2=runif(10) , V3=runif(10))
 write.table(dataF,file="res.txt")

Regarde l'aide de R, il y a aussi la fonction write.matrix().

[habasque]

oui merci je me compliquais un peu la vie !