Quali sono i modi per modificare una funzione in R?

Question

Diciamo che abbiamo la seguente funzione:

foo <- function(x) 
{ 
    line1 <- x 
    line2 <- 0 
    line3 <- line1 + line2 
    return(line3) 
} 

E che vogliamo cambiare la seconda linea di essere:

line2 <- 2 

Come l'hai fatto?

Un modo è quello di utilizzare

fix(foo) 

e cambiare la funzione.

Un altro modo è di scrivere nuovamente la funzione.

C'è un altro modo? (Ricorda, l'operazione era di cambiare solo la seconda riga)

Quello che vorrei è in qualche modo rappresentare la funzione come un vettore di stringhe (beh, caratteri), quindi cambiare uno dei suoi valori, e quindi girare in una funzione di nuovo.

Answer 1

Oppure dai un'occhiata alla funzione di debug trace(). Probabilmente non è esattamente quello che stai cercando, ma ti permette di giocare con le modifiche e ha la bella funzione che puoi sempre tornare alla tua funzione originale con untrace(). trace() fa parte del pacchetto base e viene fornito con una pagina di aiuto completa e completa.

Inizia chiamando il numero as.list (body(foo)) per vedere tutte le linee del tuo codice.

as.list(body(foo)) 
[[1]] 
`{` 

[[2]] 
line1 <- x 

[[3]] 
line2 <- 0 

[[4]] 
line3 <- line1 + line2 

[[5]] 
return(line3) 

Quindi è sufficiente definire cosa aggiungere alla funzione e dove posizionarlo definendo gli argomenti in trace().

trace (foo, quote(line2 <- 2), at=4) 
foo (2) 
[1] 4 

ho detto all'inizio che trace() potrebbe non essere esattamente quello che stai cercando in quanto non hai davvero cambiare la tua terza riga di codice e invece semplicemente riassegnato il valore all'oggetto line2 nel seguito, inserito linea di codice.Diventa più chiaro se si stampa il codice della funzione ora tracciata

body (foo) 
{ 
    line1 <- x 
    line2 <- 0 
    { 
     .doTrace(line2 <- 2, "step 4") 
     line3 <- line1 + line2 
    } 
    return(line3) 
} 

Answer 2

fix è il modo migliore che conosco di fare questo, anche se è possibile anche utilizzare edit e ri-assegnare:

foo <- edit(foo) 

Questo è ciò che fa fix internamente. Potresti voler farlo se volessi riassegnare le tue modifiche a un nome diverso.

Answer 3

È possibile utilizzare la funzione 'corpo'. Questa funzione restituisce il corpo della funzione:

fnx = function(a, b) { return(a^2 + 7*a + 9)} 
body(fnx) 
# returns the body of the function 

Quindi un buon modo per 'modifica' una funzione è quella di utilizzare 'corpo' sul lato sinistro di un'istruzione di assegnazione:

body(fnx) = expression({a^2 + 11*a + 4}) 

Answer 4

> body(foo)[[3]] <- substitute(line2 <- 2) 
> foo 
function (x) 
{ 
    line1 <- x 
    line2 <- 2 
    line3 <- line1 + line2 
    return(line3) 
} 

(Il "{" è il corpo (foo) [[1]] e ogni linea è un elemento successivo della lista.)

Answer 5

fixInNamespace è come fix, per le funzioni in un pacchetto (compresi quelli che non sono stati esportati).