R: Funciones: ¿muestra el nombre del entorno en lugar de la dirección de memoria de ese entorno?

Question

¿Cuál es la manera de mostrar el nombre del entorno dentro de la función como funciones incorporadas? Por ejemplo, cuando escribo la función: mean disponible en el paquete base, puedo ver el entorno como "namespace: base".

mean 

    function (x, ...) 
    UseMethod("mean") 
    <bytecode: 0x0547f17c> 
    **<environment: namespace:base>** 

Sin embargo, cuando hay que adjuntar una función para el medio ambiente de nueva creación, aquí para acceder a los valores de la variable libre (z) dentro de la función (f), que reside de forma automática en el entorno .GlobalEnv y el nombre de el entorno no se muestra dentro de la función, pero se ve la dirección de memoria "0x051abd60" del entorno (e1).

 e1 <- new.env() 
    e1$z <- 10 
    f <- function(x) { 
      x + z 
     } 
    environment(f) = e1 
    f 

       function(x) { 
        x + z 
       } 
       **<environment: 0x051abd60>** 

¿Qué te parece este comportamiento? ¿Por qué no obtengo el nombre de mi entorno dentro de la función como funciones incorporadas de R y también las funciones disponibles de varios paquetes R? ¿Hay alguna diferencia entre la estructura de datos del entorno y el entorno .GlobalEnv disponible de la búsqueda()

Cualquier sugerencia sobre la motivación detrás de este comportamiento sería muy apreciada.

Gracias

Answer 1

Si no recuerdo mal, los nombres de entorno para los paquetes y espacios de nombres se asignan en el nivel C. Por lo tanto, los entornos creados por el usuario no revelan nombres. No puede establecer un nombre de entorno en R aunque haya una función base (llamada erróneamente) llamada environmentName(). Solo devolverá el nombre asignado a nivel C. En realidad, solo está destinado a paquetes y espacios de nombres, no a otros entornos.

Answer 2

La mayoría de los entornos no tienen nombres: el nombre de un entorno es un atributo especial del entorno, no el nombre del objeto que apunta a ese entorno. P.ej. en el siguiente caso, ¿qué esperarías del "nombre" del entorno de f?

e1 <- new.env() 
e1$z <- 10 
e2 <- e1 
e3 <- e1 

f <- function(x) { 
    x + z 
} 
environment(f) <- e1 

identical(e1, e2) 
identical(e1, e3) 

Answer 3

Se puede configurar un nombre de entorno usando attr, así:

e <- new.env() 
attr(e, "name") <- "xyzzy" 

environmentName(e) 
## [1] "xyzzy"