Sostituzione permanente di una funzione

Question

Qualcuno potrebbe spiegare il seguente codice? Sto sostituendo la funzione di layout nel pacchetto grafica con la mia versione, ma sembra riapparire magicamente

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

Il problema è che si sta assegnando la nuova versione di layout alla grafica namespace, che è ciò che viene restituito da environment(graphics:::layout). Si invece di si desidera eseguire l'assegnazione nel pacchetto della grafica allegata (ovvero l'ambiente che appare come "package:graphics" nel percorso di ricerca).

Nel tuo esempio, quando alla ricerca di layout, R ricerche verso il basso l'elenco dei pacchetti collegati restituiti da search(), e trova l'originale layout in package:graphics, prima si arriva mai a funzionare avere assegnato in namespace:graphics.

La soluzione è semplice, richiede solo un cambiamento di ambiente assegnato env nella prima riga:

# 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 po 'più elaborazione, che può essere utile per alcuni:

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")