Discussion :

[Symbolic]

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

Code :

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

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 :

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

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

[A. D.]

Bonjour,

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

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
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.

[Symbolic]

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

[Symbolic]

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

Code :

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

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 :

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

[A. D.]

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

Cordialement,

A.D.

[dickoa]

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 :

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

?deparse

et

Code :

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

?substitute

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

Code :

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

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