Esthétique de la sortie d'une fonction

Bonjour,
Je suis en train de programmer une fonction sous R et je souhaiterais rendre la sortie visuellement jolie et épurée.
On m'a appris en cours que pour qu'une fonction retourne plusieurs valeurs, il fallait passer par une liste (peut-être que d'autres méthodes existent mais je ne les connais pas).

Si je lance :
Code:

1 2 3 4 5 6 7 8 9 10 test<-function() { titre<-"Exemple" tab<-as.data.frame(matrix(c(2.3,0.25,6.1,1.02),nrow=2),row.names=c("Moy","Ecart type")) truc<-c(12,44,88) rep<-list(a=titre,b=tab,c=truc) return(rep) } z<-test() z
J'obtiens la sortie :
Code:

1 2 3 4 5 6 7 8 9 10 $a [1] "Exemple" $b V1 V2 Moy 2.30 6.10 Ecart type 0.25 1.02 $c [1] 12 44 88
Ce que j'aimerais, c'est savoir s'il existe un moyen de n'avoir que :
Code:

1 2 3 4 5 6 7 "Exemple" V1 V2 Moy 2.30 6.10 Ecart type 0.25 1.02 12 44 88
mais en conservant la logique des listes : si on tape z$a, on obtient bien "Exemple"...

Merci.
AkaKiwi

Pour ma part, lorsque je veux redéfinir l'affichage, j'utilise le mode objet sous R ou la programmation S4.
Pour cela il faut d'abord définir un objet S4 :
Code:

1 2 3 4 5 setClass( Class='MaClasse', representation = representation( maList = 'list' ) # maList est de type liste )
Ensuite il faut redéfinir la fonction 'show' pou l'objet de type 'maClasse' :
Code:

1 2 3 4 5 6 7 setMethod('show', 'maClasse', function(object) { for (i in length(object@maList)) { show(object@maList[[i]]) } }
Par défaut c'est cette fonction qui est appelée lorsque tu veux afficher le contenu d'un objet.

Enfin dans ta fonction il faut utiliser le mot clé 'new' pour créer ton objet de type 'maClasse'.

Sinon tu peux aussi programmer en S3, ou bien trouver une solution plus simple que d'apprendre la S4.

Merci pour ton aide. J'ai exécuté ton code en ayant au préalable modifié ma fonction de la manière suivante :
Code:

1 2 3 4 5 6 7 test<-function() { titre<-"Exemple" tab<-as.data.frame(matrix(c(2.3,0.25,6.1,1.02),nrow=2),row.names=c("Moy","Ecart type")) truc<-c(12,44,88) rep<-new("MaClasse",maList=list(a=titre,b=tab,c=truc)) return(rep) }
Mais j'obtiens seulement :

Code:

[1] 12 44 88

Comme je ne connaissais pas les fonctions setClass, new etc, je n'ai peut-être pas fait ce qu'il fallait ?

zut, j'ai fait vilain :

Code:

1
2
3
4
5
6
7
setMethod('show', 'MaClasse',
                  function(object) {
                      for (i in 1:length(object@maList)) {
                         show(object@maList[[i]])  
                      }       
                  }
            )

Maintenant cela devrait fonctionner.

Bonjour,

Pour information, un equivalent en S3:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
## Fonction
test<-function() {
 titre<-"Exemple"
 tab<-as.data.frame(matrix(c(2.3,0.25,6.1,1.02),nrow=2),row.names=c("Moy","Ecart type"))
 truc<-c(12,44,88)
 rep<-list(a=titre,b=tab,c=truc)
 class(rep) <- "maclasse" # on specifie la classe de l'objet
 return(rep)
}
 
## Methode print specifique pour la classe 
print.maclasse <- function(obj) {
 for (i in obj) {
  print(i)
 }
}
 
test() # dans une session interactive, equivalent a print(test())

HTH

Vincent

J'ai honte... je pensais que je recevais un mail pour me prévenir lorsque quelqu'un répondait à la discussion... Du coup, deux mois après me voilà (GG)

Bref, merci à vous deux, j'ai testé ça marche. Il faudrait que j'étudie plus en détails les objets S3 S4, mais pour ce que j'avais à faire c'est déjà très bien.