Discussion :

[Invité]

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 :

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

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 :

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

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 :

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

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

[mamounMob]

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 :

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

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 :

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

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.

[Invité]

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

Code :

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

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 :

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

[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 ?

[mamounMob]

zut, j'ai fait vilain :

Code :

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

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.

[vchouraki]

Bonjour,

Pour information, un equivalent en S3:

Code :

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

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

[Invité]

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.