Sposób drukowania treści funkcji za pomocą przeanalizowanej zmiennej

Question

Załóżmy, że mam funkcję, która pobiera argument k i zwraca inną funkcję, która pobiera argument n, ale używa w swojej treści funkcji k.

makeFn <- function(k) { 
    function(n){ 
    rep(k,n) 
    } 
} 

five <- makeFn(5) 

five(3) 
# [1] 5 5 5 

body(five) 
# { 
# rep(k, n) 
# } 

Jak mogę wydrukować ciało five tak, że pokazuje rep(5,n) zamiast rep(k,n)?

Answer 1

Jedną opcją jest połączenie eval i bquote.

makeFn <- function(k) { 
    eval(bquote(function(n) rep(.(k),n))) 
} 

five <- makeFn(5) 
body(five) 
# rep(5, n) 

Zapis .() mówi bquote aby ocenić, co jest w nawiasach, potem to wynik w wyrażeniu.