Question

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

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

通过消除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

一个正在返回相对于软件包的路径

从R控制台调用system.file时（全局环境），此功能将检测目标软件包是否已加载使用load_all，如果是，它将使用一种自定义方法搜索文件。这是必需的，因为源程序包与目录包的目录结构不同已安装的软件包。

system.file（）进行得很好，但是base :: system.file（）不能

1 个答案: