Conditions variables dans un appel de fonction

Bonjour,

Je souhaiterais créer une fonction dans laquelle je mets une condition comme paramètre d'appel.
Typiquement, il s'agit de créer des data.frame dynamiques, mais surtout de concentrer dans le corps de la fonction, les différents traitements que je veux leurs associer.
Par exemple :

Code:

---

1 2 3 4 5

Fonction <- function(Table,Condition) { DF <- subset(Table,Condition) ... Divers traitements sur DF return( ... ) }

---

et appel avec

Citation:

---

DF1 <- Fonction(Table, Condition1)
DF2 <- Fonction(Table, Condition2)
...

---

Quelqu'un aurait-il une idée de la meilleure manière de procéder ?

Bonjour.
Après lecture de https://stat.ethz.ch/pipermail/r-hel...er/182922.html, une proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

data("mtcars")   filtre <- function(table, condition){ cond <- eval(substitute(condition), table, parent.frame()) DF <- subset(table, cond) DF$id <- rownames(DF) return(DF) }   filtre(mtcars, mtcars$cyl==4) filtre(mtcars, cyl==4)

---

L'idée est de s'inspirer de ce que contient la fonction subset, c'est à dire surtout une étape d'évaluation de la condition dans le bon contexte, à savoir que les colonnes sont celles de la table en paramètre quand on ne les explicite pas avec un $.

Citation:

---

Envoyé par olivier.decourt

Après lecture de https://stat.ethz.ch/pipermail/r-hel...er/182922.html, une proposition :

Code:

---

cond <- eval(substitute(condition), table, parent.frame())

---

---

Génial !
Merci Olivier