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)
}
artemklevtsov/prof.tree documentation built on May 10, 2019, 1:51 p.m.