如何在Rprofile.site中用match（）替换fmatch（）？

Question

我想用match()替换默认的fmatch()函数，这更快。以下代码适用于R控制台

match<-fmatch

unlockBinding('match', baseenv())
assign("match", fastmatch::fmatch, envir = baseenv())

但是，当我将任何一个代码放在Rprofile.site中时，它总是会出错。有没有人有这方面的经验？

Answer 1

将代码放入.First函数并将其保存在用户目录中的默认工作区文件.Rdata中。

.First <- function()
{
    ## Unless you unlock the binding, you can't change 
    ## an object in a locked namespace.
    unlockBinding('match', baseenv())
    assign("match", fastmatch::fmatch, envir = baseenv())
}