Tratar acentuação em vogais

```
> metaphone("ígor", language = "pt-br", maxCodeLen = 80)
[1] "G2"

> metaphone("Igor", language = "pt-br", maxCodeLen = 80)
[1] "IG2"
``` 

Erro ao usar letras com acentuação:

> character too large for enclosing character literal type

Mesmo problema de #1 