Dodaj obiekty do przestrzeni nazw pakietów

Question

Chciałbym nacisnąć funkcję wewnątrz przestrzeni nazw pakietów, aby mógł uzyskać dostęp do wewnętrznych obiektów tego pakietu (użyjmy na przykład pakietu statystyk). Próbowałem już używać

myfun <- function(x) print(x) 
env = loadNamespace("stats") 
assign("myfun", myfun , env) 

Ale jest zablokowany. Tak więc próbowałem odblokować mój obiekt:

unlockBinding("myfun", env) 

Ponieważ myfun jeszcze nie istnieje, nie mogę go odblokować.

Każda pomoc?

Answer 1

Wzdłuż linii roztworu @ Hadley, ale korzystanie ze środowiska przestrzeni nazw, jak about:

environment(myfun) <- asNamespace('stats') 

Answer 2

Możesz uzyskać dostęp do wewnętrznych obiektów paczki przy użyciu operatora potrójnego jelita grubego :::. Spójrz na przykład na: as.roman i utils:::.roman2numeric. (Porównaj to z utils::.roman2numeric.) Może to pomóc uniknąć umieszczania funkcji wewnątrz przestrzeni nazw.

Możesz również zajrzeć do dont.lockBindings w pakiecie mvbutils, który zatrzymuje przestrzenie nazw.

Answer 3

Dlaczego po prostu nie ustawić środowiska swojej nowej funkcji we właściwym miejscu?

myfun <- function(x) print(x) 
environment(myfun) <- as.environment("package:stats")