如何在全局环境中加载包的内部功能

Question

I have a package whose internal functions I want to load in the global environment. The only way I can think of is to do it manually, ie

f <- packageName:::someInternalFunction

For all internal functions. I'm guessing there's an easier way to do it, but how? Thanks in advance.

Answer 1

You could do the following:

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)
}))

Answer 2

Use package pacman as an example:

attach(loadNamespace("pacman"), name = "pacman_all")

Now all its unexported functions are available. You can see the attached "pacman_all" with search() .

To revert, run detach("pacman_all") .

Answer 3

1. download the tar.gz with the source code for the package from CRAN and extract
2. rename to "mypackage" (eg) in the DESCRIPTION
3. modify its NAMESPACE to export all that you need
4. install.package(<path to mypackage>, type="source", repos=NULL)
5. library("mypackage")

You of course realize that relying on somebody else's internal functions is very dangerous as the behavior of these functions is liable to change without warning (that's one reason they're internal). installing your own modified version of the package goes some way towards reducing that danger as it gives you more control over the code you're calling.