Como adaptar a função addPercent em R

Suponha que você queira ser capaz de colar o sinal de porcentagem para vetores de caracteres com o addPercent função. Um vector personagem vai dar um erro no momento em que tentar multiplicá-lo, então você precisa uma outra função para isso, como o seguinte:

addPercent.character lt; - função (x) {colar (x, "%", Set = "")}

Note-se que o tipo do objeto não é vector mas o caráter. Da mesma forma, você também tem que mudar o nome do original addPercent a função addPercent.numeric em seu script.

Se você usar o sistema de expedição método, você pode manter todas as funções em um arquivo de script, se eles não são muito grandes. Dessa forma, você tem a fonte de apenas um arquivo de script, a fim de ter todo o funcionamento do sistema genérico.

Tudo que você precisa agora é um genérico addPercent () funcionar como este:

addPercent lt; - função (x, ...) {UseMethod ( "addPercent")}

Você usa apenas dois argumentos aqui: x e os pontos (...). O uso do argumento pontos garante ainda pode usar todos os argumentos da addPercent.numeric () função em sua chamada para addPercent (). Os argumentos extras são simplesmente passados ​​para o método apropriado via o argumento pontos.

Após o envio do arquivo de script completo para o console, você pode enviar ambos os vetores de caracteres e vetores numéricos para addPercent (), como isso:

> addPercent (new.numbers, FUN = andar) [1] "82%" "2%" "162%" "40%"> addPercent (letras [1: 6]) [1] "a%" "b% "" c ""% d "%" e ""% f% "