R/env.R

get_envname <- function(f) {
    envs <- c(.GlobalEnv, lapply(loadedNamespaces(), .getNamespace))
    for (env in envs) {
        if (exists(f, env, inherits = FALSE))
            return(environmentName(env))
    }
    return(NA)
}

Try the prof.tree package in your browser

Any scripts or data that you put into this service are public.

prof.tree documentation built on May 2, 2019, 10:17 a.m.