Fonction non fonctionnelle, le comble!

Bonjour à tous,
Voilà donc ma première requête sur Developpez.net!

Donc, j'essaie de faire une fonction qui remplace les codes de pays ISO 2 Alpha 2 (ex: FR pour France) par le vrai nom du pays dans une même colonne (x).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#Le dataframe que je veux utiliser comme reference codeISO/Pays ressemble à ça: countries <- data.frame(Code = c("AE", "AF", "AG", "AL", "AM"), Country = c("Emirat Arabes Unis", "Afghanistan", "Antigua and Barbuda", "Albania", "Armenia"))   #Le dataframe dans lequel je veux remplacer les codes ressemble à ça: orchids <- data.frame(Year = c(2001, 2002, 2003, 2004), Species = c("P. alba", "O. lutea", "O. lutea", "P. pseudacanthis"), Importer = c("AF", "AL", "AF", "AM"))   #Voilà la fonction que j'ai créé convcountriesISO <- function(x,ref) {x <- ref$Country[match(x,ref$Code)]}   #Et voilà comment je l'utilise: convcountriesISO(x = orchids$Importer, ref = countries)

---

Mais ça ne fonctionne pas.. Rien, même pas un message d'errreur. La fonction tourne mais ça ne donne rien.
Auriez-vous une idée du pourquoi ?
Merci d'avance!
Théo Guillerminet

Bonjour,

ce n'est pas que ça ne fonctionne pas, c'est que tu ne forces pas le résultat de ta fonction à s'afficher.
Si tu fais

Code:

---

1 2 3 4

y <- convcountriesISO(x = orchids$Importer, ref = countries) y [1] Afghanistan Albania Afghanistan Armenia Levels: Afghanistan Albania Antigua and Barbuda Armenia Emirat Arabes Unis

---

C'est bien la preuve que le code a fonctionné et qu'il s'est passé quelque chose.

Pour afficher un résultat en sortie de fonction i te faut rajouter une dernière ligne à ta fonction, tu as deux possibilités :
i) tu rappelles l'objet que tu viens de créer x;
ii) tu utilises la fonction return avec l'objet créé return(x).

cdlt

Bonjour,

Merci pour votre réponse rapide!

Donc, oui, du coup, je vois que ça fonctionne mais ce que je souhaite, ce n'est pas un retour visuel! Mais le remplacement de la colonne 'Importer' du dataframe 'Orchids'.
Mais celle-ci n'est pas remplacée par le simple ' x <- '..

Cordialement,
Théo

re,

Code:

---

orchids$Importer <- convcountriesISO(x = orchids$Importer, ref = countries)

---

cdlt

Re,
Yes! ça ça donne le bon résultat :)

Mais j'aimerais bien que la fonction fasse tout le boulot, qu'elle soit autonome sans que j'ai à référencer la colonne à remplacer alors qu'elle ne l'est déjà en x dans la fonction.
Je pensais que la "x <- " de la fonction ferait le boulot.

Merci pour votre aide!
Crdt,
Théo

Ça peut se faire directement mais déjà c'est plus compliqué a programmer et ensuite on perd la visibilité sur ce qui est fait sur ton jeu de données, c'est a dire que quand tu lances la fonction quelqu'un qui lirait ton code ne verrait pas qu'une colonne de ton jeu de données a été modifiée alors que quand tu fais <- alors la on voit que quelque chose s'est passé. L'autre limite c'est que ta fonction perd son universalité, elle ne s'applique que pour une colonne alors que la précédente peut fonctionner avec n'importe quel vecteur de données.

Code:

---

1 2 3 4 5 6 7 8

convcountriesISO <- function(x, ref) { y <- deparse(substitute(x)) z <- deparse(substitute(ref)) env1 <- parent.frame() expr <- sprintf("%1$s <- %2$s$Country[match(%1$s,%2$s$Code)]", y, z) eval(parse(text = expr), envir = env1) }

---

cdlt

Merci beaucoup!
Je ne pensais pas que c'était aussi pointu.. C'est vrai que je ne comprend pas tout là dedans mais c'est l'occasion
d'y jeter un coup d'oeil.
Merci encore,
Bonne soirée,
Théo