測試一個函數的一個參數被設置或不中的R

Question

我有一個函數f採用兩個參數（p1和p2）：

如果用於參數p2沒有值被傳遞給函數，該值應該使用p1^2來代替。但是如何在函數中找到值，如果給出值或不。問題是如果沒有值，變量p2未被初始化。因此我無法測試p2是NULL。

f <- function(p1, p2) { 
    if(is.null(p2)) { 
     p2=p1^2 
    } 
    p1-p2 
} 

是它在某種程度上可以確認如果p2一個值傳遞給函數或沒有？ （我找不到isset() - 功能或類似的東西。）

Answer 1

您可以使用功能missing()。

f <- function(p1, p2) { 
    if(missing(p2)) { 
     p2=p1^2 
    } 
    p1-p2 
} 

或者，您可以將p2的值默認設置爲NULL。我有時更喜歡這個解決方案，因爲它允許將參數傳遞給嵌套函數。

f <- function(p1, p2=NULL) { 
    if(is.null(p2)) { 
     p2=p1^2 
    } 
    p1-p2 
} 

f.wrapper <-function(p1,p2=NULL){ 
    p1 <- 2*p1 
    f(p1,p2) 
} 
> f.wrapper(1) 
[1] -2 
> f.wrapper(1,3) 
[1] -1 

編輯：你可以用missing()技術上也這麼做，但你必須包括在f.wrapper一個missing()聲明爲好。

Answer 2

我覺得'失蹤'應該這樣做。

Answer 3

在的情況下，這樣你也可以使用這樣的事情：

f <- function(p1, p2 = p1^2) { 
    p1-p2 
} 

爲`NULL`默認替代參見懶惰計算部分在http://adv-r.had.co.nz/Functions.html