r - system.file() 运行良好，但 base::system.file() 不行

Question

现在，我开发了一些R包，以避免不同包之间的重名，我想使用 base::system.file(),

但是一旦我在名为 "aa" 的包中运行 base::system.file()， 第一次还好， 但第二次运行时，它返回 ""，即空。

通过消除base，即system.file()，效果会很好。请告诉我为什么返回值为 ""(空)。

 base::system.file("extdata", "aaaaa.stan", package="aa")
[1] ""
> system.file("extdata", "aaaaa.stan", package="aa")
[1] "C:/Users/xxxxx/Desktop/aa/inst/extdata/aaaaa.stan"

Answer 1

你可以使用??查看哪些包实现了该功能，devtools 会覆盖 system.file，因此 system.file 的功能可能与 base:system.file 不同

??system.file 

如果您只键入函数，它应该显示函数的包

> base::system.file
function (..., package = "base", lib.loc = NULL, mustWork = FALSE) 
{
    if (nargs() == 0L) 
        return(file.path(.Library, "base"))
    if (length(package) != 1L) 
        stop("'package' must be of length 1")
    packagePath <- find.package(package, lib.loc, quiet = TRUE)
    ans <- if (length(packagePath)) {
        FILES <- file.path(packagePath, ...)
        present <- file.exists(FILES)
        if (any(present)) 
            FILES[present]
        else ""
    }
    else ""
    if (mustWork && identical(ans, "")) 
        stop("no file found")
    ans
}
<bytecode: 0x2342e00>
<environment: namespace:base>

似乎 system.file 正在运行 devtools:system.file ，它与 base::system.file 不同

https://www.rdocumentation.org/packages/devtools/versions/1.13.6/topics/system.file

一个是返回相对于包的路径

When system.file is called from the R console (the global envrironment), this function detects if the target package was loaded with load_all, and if so, it uses a customized method of searching for the file. This is necessary because the directory structure of a source package is different from the directory structure of an installed package.