r - 如何在全局环境中加载包的内部函数

Question

我有一个包，我想在全局环境中加载它的内部函数。我能想到的唯一方法是手动完成，即

f <- packageName:::someInternalFunction

对于所有内部功能。我猜有一种更简单的方法可以做到这一点，但是如何呢？提前致谢。

Answer 1

您可以执行以下操作:

library(pacman)

pack.name <- "qdap"

hidden <- setdiff(p_funs(pack.name, TRUE), p_funs(pack.name))

invisible(lapply(hidden, function(x) {

    a <- strtrim(x, 1) == "%" 
    b <- substring(x, nchar(x)) == "%"

    if (a && b) {
        x2 <- paste0("`", x, "`")
    } else {
        x2 <- x
    }

    assign(x, eval(parse(text=paste0(pack.name, ":::", x2))), 
        envir = .GlobalEnv)
}))