Comment adapter la fonction de addpercent dans r

Supposons que vous voulez être en mesure de coller le signe pour cent à des vecteurs de caractères avec le addPercent fonction. Un vecteur de caractères donnera une erreur au moment où vous essayez de multiplier, de sorte que vous besoin d'une autre fonction pour que, comme les suivantes:

addPercent.character lt; - la fonction (x) {pâte (x, "%", SEP = "")}

Notez que le type de l'objet ne sont pas vecteur mais le caractère. De la même manière, vous devez également renommer l'original addPercent fonction addPercent.numeric dans votre script.




Si vous utilisez le système de dispatching méthode, vous pouvez conserver toutes les fonctions dans un fichier de script si elles ne sont pas trop gros. De cette façon, vous avez à la source d'un seul fichier de script afin d'avoir tout le fonctionnement du système générique.

Tout ce que vous avez besoin maintenant est un générique addPercent () fonctionner comme ceci:

addPercent lt; - la fonction (x, ...) {UseMethod ("addPercent")}

Vous utilisez seulement deux arguments ici: X et les points (...). L'utilisation de l'argument de points assure vous pouvez toujours utiliser tous les arguments de la addPercent.numeric () fonction dans votre appel à addPercent (). Les arguments supplémentaires sont simplement passées à la méthode appropriée via l'argument de points.

Après l'envoi du dossier complet de script à la console, vous pouvez envoyer les deux vecteurs de caractères et des vecteurs numériques à addPercent (), comme ça:

> AddPercent (new.numbers, FUN = sol) [1] "82%" "2%" "162%" "40%"> addPercent (lettres [1: 6]) [1] «un%" "b% "" c% ""% d ""% e "" f% »

» » » » Comment adapter la fonction de addpercent dans r