R paradosso di valutazione lazy (R bug?)

Question

Ho più funzioni che trattano argomenti che potrebbero mancare.

ad es. Ho

mainfunction <- function(somearg) { 
    mytest(somearg) 
    fun <- function() { subfunction(somearg) } 
    fun() 
} 

con l'aspetto interessante che l'unica interazione mytest(somearg) con l'arg è che esso verifica se l'argomento non manca:

mytest = function(somearg) { 
    print(missing(somearg)) 
} 

subfunction quindi verifica nuovamente se non è presente e tratta di conseguenza:

subfunction = function(somearg) { 
    if (missing(somearg)) 
     somearg = NULL 
    else 
     somearg = matrix(somearg, cols = 2) 
    # somearg is used here… 
} 

il kicker è che, con somearg mancante, questo non funziona: matrix(somearg, cols = 2) tiri

argomento "somearg" manca, alcun valore predefinito

durante il debug, ho trovato il seguente:

1. all'inizio del mainfunction, missing(somearg) rendimenti TRUE
2. in mytest, missing(somearg) restituisce TRUE
3. in subfunction, missing(somearg) rendimenti FALSE (!!!!)

quindi il ramo matrix è colpito, ma in realtà, someargè mancante, quindi non riesce ...

wat.

Answer 1

il modo @BenBolker:

mainfunction <- function(somearg = NULL) { 
    mytest(somearg) 
    fun <- function() { subfunction(somearg) } 
    fun() 
} 

mytest = function(somearg) { 
    print(is.null(somearg)) 
} 

subfunction = function(somearg) { 
    if (is.null(somearg)) 
     somearg = 1:10 
    else 
     somearg = matrix(somearg, ncol = 2) 
    somearg 
} 

Un altro modo, utilizzando esplicito argomento mancante

mainfunction <- function(somearg) { 
    is_missing <- missing(somearg) 
    mytest(is_missing) 
    fun <- function() { subfunction(somearg, is_missing) } 
    fun() 
} 
mytest = function(x) { print(x) } 
subfunction = function(somearg, is_arg_missing) { 
    if (is_arg_missing) 
     somearg = 1:10 
    else 
     somearg = matrix(somearg, ncol = 2) 
    somearg 
} 

Un terzo modo, utilizzando la lingua manca arg passaggio:

mainfunction <- function(somearg) { 
     is_missing <- missing(somearg) 
     mytest(somearg) 
     fun <- function() { 
      if (is_missing) subfunction() else 
       subfunction(somearg) 
     } 
     fun() 
    } 

    mytest = function(somearg) { 
     print(missing(somearg)) 
    } 

    subfunction = function(somearg) { 
     if (missing(somearg)) 
      somearg = 1:10 
     else 
      somearg = matrix(somearg, ncol = 2) 
     somearg 
    }