Discussion :

[enicnath]

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 :

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

1
2
3
4
5
Fonction <- function(Table,Condition) {
   DF <- subset(Table,Condition)
   ... Divers traitements sur DF
   return( ... )
}

et appel avec

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

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

[olivier.decourt]

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

Code :

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

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

[enicnath]

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

Code :

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

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

Génial !
Merci Olivier