Fonction d'export de fichier

Version imprimable

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:

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.

01/04/2009, 02h12
hoccha

write.table(.)
Bonjour,

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

Exemple:
Code:

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().
06/04/2009, 12h35
habasque

sauvegarde de fichier

oui merci je me compliquais un peu la vie !