Jak określić przestrzeń nazw funkcji?

Question

Biorąc pod uwagę funkcję, w jaki sposób określić, z której przestrzeni nazw pochodzi?

Na przykład, jeśli wpiszę w wierszu polecenia mean.default, dane wyjściowe zawierają fakt, że znajduje się on w pakiecie podstawowym. Chcę móc zrobić coś takiego, jak getNamespace(mean.default) i przywrócić "podstawową" (lub rzeczywiste środowisko bazowe).

Istnieje funkcja getNamespace, ale wydaje się akceptować tylko nazwy pakietów, a nie nazwy funkcji.

print.function wykorzystuje wewnętrzny kod do pobrania przestrzeni nazw. Doszedłem do przeglądania do_printfunction w src/main/print.c, ale potem się poddałem.

Answer 1

Bardzo niedawno dowiedziałem się o find(), który wydaje się robić właśnie to.

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

Answer 2

findFunction ma innej opcji i ?findFunction mówi powinien go używać zamiast find z mode="function". Wynik findFunction jest listą środowiska (ów), w którym znajdują się widoczne wersje funkcji.

Answer 3

Chcesz getNamespaceName + environment:

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

Answer 4

Funkcja ta wyszukuje funkcje załadowanych nazw i globalnego środowiska:

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"