Comment réduire le nombre de lignes dans R - les variables

Lors de la transformation du script en R, tous les éléments ne sont pas obligatoires. En fait, l'instruction return () est facultative car, par défaut, R renvoie toujours la valeur de la dernière ligne de code dans le corps de la fonction.

Renvoie les valeurs par défaut

Supposons que vous ayez oublié d'ajouter return (result) dans la fonction addPercent (). Que se passerait-il alors? Vous pouvez savoir si vous supprimez la dernière ligne de la fonction addPercent (), enregistrez le fichier et le source à nouveau pour le charger dans l'espace de travail.

Toute modification apportée à une fonction ne sera effective qu'après avoir envoyé le code adapté à la console. Cela remplacera effectivement l'ancien objet fonction par un nouveau.

Si vous essayez à nouveau d'ajouter (nouveaux numéros), vous voyez … rien. Apparemment, la fonction ne fait plus rien - mais c'est une illusion, comme vous pouvez le voir avec le code suivant: >> print (addPercent (new. Numbers)) [1] "82. 2%" "2 5% "" 162% "" 40% "

Dans ce cas, la dernière ligne de la fonction retourne la valeur du résultat

invisiblement, c'est pourquoi vous ne la voyez que si vous demandez spécifiquement imprime le. La valeur est retournée de manière invisible en raison de l'affectation dans la dernière ligne. Comme ce n'est pas vraiment pratique, vous pouvez supprimer l'assignation dans la dernière ligne et changer le code de la fonction en:

addPercent <- function (x) {percent <- round (x * 100, chiffres = 1) paste (pourcentage, "%", sep = ")}

Cette fonction fonctionne à nouveau Il peut sembler que return () est totalement inutile, mais vous en avez vraiment besoin si vous voulez quitter la fonction avant la fin du code dans le corps.Par exemple, vous pouvez ajouter une ligne à la fonction addPercent qui vérifie si x est numérique, et sinon, retourne NULL, comme ceci:

addPercent <- function (x) {if (! numeric (x)) return (NULL) pour cent <- round (x * 100, chiffres = 1) paste (pourcentage, "%", sep = ")}

Rompre les murs

Les accolades, {}, former le mur proverbiale autour de la fonction, mais dans certains cas, vous pouvez les laisser tomber aussi bien. Supposons que vous souhaitiez calculer les probabilités d'une proportion. Les chances que quelque chose se passe ne sont pas plus que la chance que cela se produise divisé par la chance que cela n'arrive pas. Donc, pour calculer les cotes, vous pouvez écrire une fonction comme ceci:

>> cotes <- function (x) x / (1-x)

Même sans les instructions accolades ou return (), cela fonctionne parfaitement bien, comme vous pouvez le voir dans l'exemple suivant: >> cotes (0,8) [1] 4

Si une fonction ne comporte qu'une seule ligne de code, vous pouvez simplement ajouter cette ligne après la liste d'arguments sans l'entourer d'accolades.R verra le code après la liste d'arguments comme le corps de la fonction.

Vous pouvez faire la même chose avec la fonction addPercent () en imbriquant tout comme ceci: >> addPercent <- function (x) coller (round (x * 100, chiffres = 1), "%", sep = ")

C'est un plan astucieux pour donner à la prochaine personne qui lit ce code un gros mal de tête, mais c'est un peu moins rusé si vous êtes la prochaine personne, et il y a de fortes chances que ce soit le cas. l'espace dans un corps de fonction est beaucoup moins important que de garder le code lisible, parce que gagner de l'espace ne vous rapporte rien.Les constructions comme la fonction de cotes ne sont utiles que dans des cas très spécifiques.