manipulation des trois points de suspension comme paramètre formel

Bonjour,
j'ai une fonction f ayant '...' comme paramètre formel

Code:

---

f<- function(...) { }

---

Je voudrais que cette fonction retourne une liste dont les éléments sont les paramètres éffectifs reçus à l'appel, mais présentés de la mamière suivante:
1) tout paramètre effectif passé sous la forme f( , v, ) où v est une variable du programme se présente sous la forme v=v dans la liste de sortie, autrement dit je voudrais obtenir une liste de sortie list( , v=v, ), dans laquelle le nom v de la variable devient le nom d'un élément dont la valeur est la valeur de v.
2) tout autre parmètre effectif (qu'il soit passé sous la forme f( , nom=valeur, ) ou simplement f( , valeur, ) reste inchangé dans la liste de sortie

Exemple

Code:

---

1 2 3 4 5

> w<-c(2,4,6,8,10,12,14) > x<-c("a","b") > y<-1:3 > z<-f(p1=7, w, p2=x, c(1,4,9), y)

---

Dans cet exemple, l'appel à f me sort une liste référencée par la variable z. Je voudrais donc avoir:
z$p1 vaut 7,
z$w vaut c(2,4,6,8,10,12,14),
z$p2 vaut c("a","b")
z[[4]] vaut c(1,4,9)
et z$y vaut 1:3
autrement dit z <- list(p1=7, w=w, p2=x, c(1,4,9), y=y)

Comment coder la fonction f?
Merci de votre aide

Bonjour,

Voici une première piste qui ne répond pas entièrement à ta question mais apporte un début de réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

> w<-c(2,4,6,8,10,12,14) > x<-c("a","b") > y<-1:3     > f<-function(...) { args<-list(...) args }   > z<-f(p1=7, w, p2=x, c(1,4,9), y)     > z$p1 [1] 7 > z$w NULL > z$p2 [1] "a" "b" > z[[4]] [1] 1 4 9 > z$y NULL   > z[[2]] [1] 2 4 6 8 10 12 14 > z[[5]] [1] 1 2 3

---

Peut-être qu'en bidouillant pour récupérer les noms des éléments en entrée (w, y) on peut obtenir ce que tu souhaites. A voir...

Pour info, le livre cité dans un des posts récents : "R in a nutshell" contient une partie très intéressante sur la création de fonctions (dispo sur google books pour info).


Bonne continuation :)

A.D.


[EDIT] Cela dit, il suffit que l'utilisateur spécifie les noms qui l'intéressent lors de l'appel de la fonction (par exemple : w=w, y=y ...), après cela dépend quelle est l'utilisation souhaitée de la fonction.

merci AD pour ta réponse. Tu disais: "Peut-être qu'en bidouillant pour récupérer les noms des éléments en entrée (w, y) on peut obtenir ce que tu souhaites."
Eh bien c'est justement ce bidouillage que je recherche. La demande sous-jacente à ma question est de savoir comment récupérer, par programmation, la référence vers un objet? Autrement dit, étant donné un objet X (que ce soit un paramètre effectif fourni ou non par l'utilisateur, une variable ou tout autre objet du programme), comment programmer l'obtention de "X" comme étant le string désignant la référence vers l'objet X?
Merci

voici le genre de bidouillage qui peut répondre à la question

Code:

---

1 2 3 4 5 6 7 8

f<- function(...) {   args<- list(...) aname <- sapply(as.list(substitute({...})[-1]), deparse) names(args) <- aname args }

---

Voici quelques exemples:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

> x <- runif(5) > y <- "abc" > f(x, y)   $x [1] 0.44241647 0.07540958 0.46405311 0.01684738 0.94370893   $y [1] "abc"   > f(x, 1:3, y)   $x [1] 0.44241647 0.07540958 0.46405311 0.01684738 0.94370893   $"1:3" [1] 1 2 3   $y [1] "abc"   > f(abc=x, y)   $x [1] 0.44241647 0.07540958 0.46405311 0.01684738 0.94370893   $y [1] "abc"

---

Merci

Plutôt chouette comme utilisation, c'est bon à savoir :)

Cordialement,

A.D.

Citation:

---

comment programmer l'obtention de "X" comme étant le string désignant la référence vers l'objet X?

---

Ben tu peut utiliser les fonctions

Code:

---

?deparse

---

et

Code:

---

?substitute

---

Par exemple on peut code la somme dans une fonction et faire apparaitre les chiffres rentré :

Code:

---

1 2 3 4 5

mafonction <- function(x, y) { paste("la somme de", deparse(substitute(x)), "et", deparse(substitute(y)), "est :", x + y) } R> mafonction(2,4) [1] "la somme de 2 et 4 est : 6"

---

Et puis si tu veux des truc plus complexe, regarde les fonctions du même type, quote, bquote, etc