Find an object environment name

get-env.R

getEnvName <- function(f) {
    attached <- c(environmentName(.GlobalEnv), loadedNamespaces())
    envs <- c(.GlobalEnv, lapply(attached[-1], .getNamespace))
    attached[vapply(envs, function(env) exists(f, env, inherits = FALSE), logical(1))]
}

# returns only a first found result
getEnvName2 <- function(f) {
    envs <- c(.GlobalEnv, lapply(loadedNamespaces(), .getNamespace))
    for (env in envs) {
        if (exists(f, env, mode = "function", inherits = FALSE))
            return(environmentName(env))
    }
    return(NA)
}

Example:

median <- function() {}
getEnvName("median")
#> [1] "R_GlobalEnv" "stats"
getEnvName2("median")
#> [1] "R_GlobalEnv"
getEnvName(".try_quietly")
#> [1] "tools"
getEnvName("getEnvName")
#> [1] "R_GlobalEnv"