在r中调用函数时出现编码问题

我需要R中的一个函数来“清除”字符串中的重音。我使用的是来自

我创建了一个外部函数，包括@Thomas提出的算法，并保存在一个函数clean.r中。所以当我称之为clean（“aab”）时，结果是“aab”

这在很长一段时间内效果不错，但现在，它突然停止了工作。当我尝试调用该函数时，我得到以下消息：chartr中的Error（old，new，x）：“old”比“new”长

当我从“clean.r”函数内部打印每个参数时，它们看起来像：

印刷品（旧）>“ÃÃÃ\u0081ÃÃÅ”

打印（新）>“AAAAA…”

因此，它们确实不同。当我调用该函数时，它不理解带重音字符的正确编码。当我打开clean.r文件并逐行运行代码时，它工作正常，但当我从另一个函数中调用它时，它就不工作了。我将其作为源（“clean.r”）导入

有人知道我该怎么处理吗？有没有更简单的方法从字符串中排除重音符号

---

非常感谢。

textclean:：replace_non_ascii（“ááb”）

textclean:：replace_non_ascii（“áb”）