Agregar objetos al espacio de nombres del paquete

Question

Me gustaría insertar una función dentro de un espacio de nombres de paquete para que pueda acceder a los objetos internos de ese paquete (usemos el paquete de estadísticas como ejemplo). He intentado usar

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

Pero está bloqueado. Así que traté de desbloquear mi objeto

unlockBinding("myfun", env) 

Dado que myfun aún no existe, no puedo desbloquearlo.

¿Algún ayuda?

Answer 1

A lo largo de la línea de la solución de @ Hadley, pero utilizando el entorno del espacio de nombres, ¿qué tal:

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

Answer 2

Puede acceder a los objetos internos de un paquete utilizando el operador de tres puntos :::. Eche un vistazo a, por ejemplo, as.roman y utils:::.roman2numeric. (Compare esto con utils::.roman2numeric). Esto podría ayudarlo a evitar tener que poner su función dentro del espacio de nombres.

Es posible que también desee consultar dont.lockBindings en el paquete mvbutils, que detiene el bloqueo de los espacios de nombres.

Answer 3

¿Por qué no simplemente establece el entorno de su nueva función en el lugar correcto?

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