Discussion :

[jlp65]

Bonjour,
Je souhaiterais effectuer un traitement sur une dataframe à l'intérieur d'une fonction.

Ce traitement dépend de la table qui est passée en argument de la fonction.

Aussi, je souhaiterais récupérer le nom de la table. Quelque chose "de ce genre" :

Code :

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

1
2
3
4
5
6
7
8
9
 
ma_fonc <- function(table) {
  if name(table)=="toto" {
     # traitement 1
  }
  else {
     # traitement 2
  }
}

Merci pour votre aide !

[mgdondon]

Bonjour,

Vous pouvez utiliser la fonction deparse(substitute()) pour tester le nom du dataframe (voir ici).

Par ailleurs, il ne faut pas oublier les parenthèses après le if.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
df1 <- data.frame(a = c(1,1,1))
df2 <- data.frame(a = c(2,2,2))
 
ma_func <- function(table) {
  if (deparse(substitute(table)) == "df1") {
     print(table)
  }
  else {
     print(deparse(substitute(table)))
  }
}

Code :

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

1
2
3
4
5
6
7
> ma_func(df1)
  a
1 1
2 1
3 1
> ma_func(df2)
[1] "df2"

Cordialement,

[jlp65]

Merci bien !
Pas simple, R !

[mgdondon]

Bonjour,

Le passage de SAS à R n'est pas toujours évident, notamment lorsqu'il s'agit de paramétrer le code.

La philosophie des 2 logiciels est en effet complètement différente. Je vous propose des solutions pour mimer le fonctionnement de SAS mais je suppose que les vrais utilisateurs R utilisent d'autre méthodes de programmation. C'est comme pour une langue étrangère, il faudrait réussir à penser directement R.

Cordialement,