Cách in nội dung chức năng bằng biến được phân tích cú pháp

Question

Giả sử tôi có hàm cần tham số k và trả về một hàm khác có tham số n nhưng sử dụng k trong phần chức năng của hàm.

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

five <- makeFn(5) 

five(3) 
# [1] 5 5 5 

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

Làm thế nào tôi có thể in cơ thể của five để nó hiển thị rep(5,n) thay vì rep(k,n)?

Answer 1

Một tùy chọn là kết hợp eval và bquote.

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

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

Ký hiệu .() đang nói bquote để đánh giá bất cứ điều gì là trong ngoặc đơn, sau đó bao gồm các kết quả trong biểu thức.