¿Cómo se determina el espacio de nombre de una función?

Question

Dada una función, ¿cómo se determina de qué espacio de nombres proviene?

Por ejemplo, si escribo mean.default en el símbolo del sistema, la salida incluye el hecho de que está en el paquete base. Quiero poder hacer algo como getNamespace(mean.default) y hacer que devuelva "base" (o el entorno base real).

Hay una función getNamespace pero parece que solo acepta nombres de paquetes en lugar de nombres de funciones.

print.function usa el código interno para recuperar el espacio de nombres. Llegué tan lejos como navegar do_printfunction en src/main/print.c pero luego me rendí.

Answer 1

Hace muy poco aprendí acerca de find() que parece hacer exactamente esto.

R> find("ls") 
[1] "package:base" 
R> find("na.locf") 
[1] "package:zoo" 

Answer 2

findFunction es otra opción y ?findFunction dice que se debe utilizar en lugar de find con mode="function". El resultado de findFunction es una lista de los entornos donde se encuentran las versiones visibles de la función.

Answer 3

¿Quieres getNamespaceName + environment:

getNamespaceName(environment(mean.default)) 
# [1] "base" 

Answer 4

Esta función busca en funciones en los espacios de nombres cargados y entorno global:

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))] 
} 
median <- function() {} 
getEnvName("median") 
#> [1] "R_GlobalEnv" "stats" 
getEnvName(".try_quietly") 
#> [1] "tools" 
getEnvName("getEnvName") 
#> [1] "R_GlobalEnv"