modificare il corpo del testo degli oggetti funzione esistenti

Question

Ho alcuni file .Rdata che contengono funzioni salvate come definito da approxfun().

Alcuni dei file di salvataggio pre-data la modifica approxfun dal pacchetto "base" per "stats", e così il corpo ha

PACKAGE = "base" 

e il pacchetto sbagliato causa la funzione che sicuro. Posso correggere (myfun) e semplicemente sostituire "base" con "stats", ma voglio un modo automatico più ordinato.

Posso farlo in qualche modo con gsub() e body()?

posso ottenere il corpo del testo e sostituire lì con

as.character(body(myfun)) 

ma non so come trasformare che di nuovo in un "call" e sostituire la definizione.

(so che una soluzione migliore è quella di aver salvato i dati originariamente utilizzati da approxfun e semplicemente ricreare la funzione, ma mi chiedo se c'è un modo ragionevole per modificare quello esistente.)

Edit: ho trovato qui

What ways are there to edit a function in R?

Answer 1

Utilizzare la funzione substitute.

Ad esempio:

myfun <- function(x,y) { 
    result <- list(x+y,x*y) 
    return(result) 
} 

Utilizzando body, trattare myfun come un elenco per selezionare quello che si desidera modificare nella funzione:

> body(myfun)[[2]][[3]][[2]] 
x + y 

Quando si cambia questo, è necessario utilizzare il Funzione substitute in modo da sostituire la parte della funzione con un oggetto call o name, a seconda dei casi. La sostituzione con stringhe di caratteri non funziona poiché le funzioni non vengono memorizzate come o utilizzate come stringhe di caratteri.

body(myfun)[[2]][[3]][[2]] <- substitute(2*x) 

Ora il pezzo selezionato della funzione è stata sostituita:

> myfun 
function (x, y) 
{ 
    result <- list(2 * x, x * y) 
    return(result) 
}