有没有一种方法可以获取包含 R 中可以使用的所有函数名称的向量？

Question

我想要一个调用返回一个向量，其中包含我可以在当前 R 会话中调用的所有函数的名称。有人知道如何实现这一目标吗？

（我想根据此向量检查用户输入的变量。用户输入例如 c 作为变量名称时，我们遇到了一些不可预见的问题）

更新： 我想获得当前加载的所有包中的函数名称。

解决方案（半途）：基于 Joris Meys 的 lsf.str() 提示，我想出了以下函数，该函数返回包含所有当前可用函数名称的排序向量：

getFunctionNames <- function() {
    loaded <- (.packages())
    loaded <- paste("package:", loaded, sep ="")
    return(sort(unlist(lapply(loaded, lsf.str))))
}

但也请参阅 Joris Meys 帖子的评论以获得更好的答案。

Answer 1

我会使用 lsf.str() 作为开始。

例如： x <- as.character(lsf.str("package:base")) 为您提供基础包中所有函数的列表。您可以添加所有要检查的包。首先想到的是 stats 和 utils。

编辑：关于您有关当前加载的包的问题：

x <- unlist(sapply(search()[-1],function(x)as.character(lsf.str(x)))) 查看评论

pkgs <- search()
pkgs <- pkgs[grep("package:",pkgs)]
y <- unlist(sapply(pkgs,lsf.str))

就可以了。

Answer 2

我在很多个月前（2007 年）在 R-Help 上问了一个类似的问题，Brian Ripley 教授提供了这个解决方案：

findfuns <- function(x) {
     if(require(x, character.only=TRUE)) {
        env <- paste("package", x, sep=":")
        nm <- ls(env, all=TRUE)
        nm[unlist(lapply(nm, function(n) exists(n, where=env,
                                               mode="function",
                                               inherits=FALSE)))]
     } else character(0)
}
pkgs <- dir(.Library)
z <-  lapply(pkgs, findfuns)
names(z) <- pkgs
Z <- sort(unique(unlist(z)))

给出的输出如下：

> head(Z)
[1] "^"        "-"        "-.Date"   "-.POSIXt" ":"        "::"

This was for find all the features in packages returned by object pkgs 这样您就可以控制加载/检查哪些包。

适用于当前加载的一组软件包的修改版本将是：

findfuns2 <- function(pkgs) {
    nm <- ls(pkgs, all = TRUE)
    nm[unlist(lapply(nm, function(n) exists(n, where = pkgs,
                                            mode = "function",
                                            inherits = FALSE)))]
    if(isTRUE(all.equal(length(nm), 0)))
        character(0)
    else
        nm
}

pkgs <- search()
pkgs <- pkgs[grep("package:", pkgs)]
z <- lapply(pkgs, findfuns2)
z <- sort(unique(unlist(z)))
head(z)