有什麼方法可以編輯R中的函數？

Question

比方說，我們有以下功能：

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

而且，我們要改變下聯是：

line2 <- 2 

你會如何做呢？

一種方法是使用

fix(foo) 

和更改的功能。

另一種方法是再次寫入函數。

還有別的辦法嗎？ （請記住，任務是改變第二行）

我想用某種方式將函數表示爲字符串的向量（以及字符），然後更改它的一個值，然後轉向它再次成爲一個功能。

Answer 1

或者看看調試功能trace()。這可能不是你正在尋找的東西，但它可以讓你玩弄變化，它有很好的功能，你可以隨時用untrace()回到原來的功能。 trace()是base軟件包的一部分，並附帶了一個很好且徹底的幫助頁面。

首先致電as.list (body(foo))查看代碼的所有行。

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

[[2]] 
line1 <- x 

[[3]] 
line2 <- 0 

[[4]] 
line3 <- line1 + line2 

[[5]] 
return(line3) 

然後你簡單地定義什麼添加到您的功能，並在那裏通過定義trace()的參數放置。

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

我在開始時說，trace()可能不是你要找的，因爲你並沒有真正改變你的代碼，而是第三行正是隻是重新分配的值對象line2在下面，插入代碼行。如果你要打印出你現在追蹤功能

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

Answer 2

fix的是，我知道這樣做的最好辦法，但你也可以使用edit和重新分配它：

foo <- edit(foo) 

這是fix內部做。如果您想要將更改重新分配給其他名稱，則可能需要執行此操作。

Answer 3

您可以使用'機身'功能。這個函數會返回函數體：

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

所以要「編輯」功能是使用「身體」在賦值語句的左側一個好辦法：

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

的代碼它變得更清晰（在「{」爲體（富）[[1]]每行是列表的連續元素。 ）

Answer 5

fixInNamespace與fix一樣，用於包中的函數（包括那些尚未導出的函數）。