导入源脚本时的字符串编码错误

Question

我用一行代码写了一个R脚本“test.R”：

nao <- function () {"não"}

然后在另一个脚本“call_test.R”中我们有：

source("test.R")
nao()    #Calls nao() in "test.R"

nao2 <- function () {"não"}  #Same function as above
nao2()

导致

> nao()
[1] "não"

> nao2()
[1] "não"

为什么我会得到不同的结果？ （期望的结果是"não"）如何从源代码脚本以正确的方式获取它？谢谢。

Answer 1

更改编码：

source("test.R", encoding = "UTF-8")