Reemplazar permanentemente una función

Question

¿Podría alguien explicar el siguiente código? Estoy reemplazando la función de diseño en el paquete de gráficos con mi propia versión, pero parece que volverá a aparecer mágicamente

env = environment(graphics:::layout) 
unlockBinding("layout" , env = env) 
assign("layout" , function(){} , envir = env) 
lockBinding("layout" , env = env) 

# this still shows the original layout function! how is that possible? 
layout 

# this shows function(){} as expected 
graphics:::layout 

Answer 1

El problema es que se está asignando su nueva versión de layout al espacio de nombres gráficos , que es lo que devuelve environment(graphics:::layout). Usted lugar quieren hacer la asignación en los gráficos adjuntos paquete (es decir, el medio ambiente aparecen como "package:graphics" en su ruta de búsqueda).

En su ejemplo, cuando se busca layout, R Búsquedas la lista de paquetes adjuntos devueltos por search(), y se encuentra en el original layoutpackage:graphics, antes de que alguna vez se pone a funcionar que ha asignado en namespace:graphics.

La solución es simple, requiriendo sólo un cambio de ambiente asignado a env en la primera línea:

# Assign into <environment: package:graphics> 
# rather than <environment: namespace:graphics> 
env <- as.environment("package:graphics") 

unlockBinding("layout" , env = env) 
assign("layout" , function(){} , envir = env) 
lockBinding("layout" , env = env) 

# Now it works as expected 
layout 
# function(){} 

Un poco más elaboración, que puede ser útil para algunos:

search() # Shows the path along which symbols typed at the command 
      # will be searched for. The one named "package:graphics" 
      # is where 'layout' will be found. 

# None of these return the environment corresponding to "package graphics" 
environment(layout) 
environment(graphics::layout) 
environment(graphics:::layout) 

# This does 
as.environment("package:graphics")