No-Op-Funktion als bedingter Ersatz für stopifnot()

Question

Gibt es in R eine No-Op-Funktion, so dass sie, selbst wenn die Parameter teuer zu bewerten wären, sofort zurückkehrt? Ich suche nach einem bedingten Ersatz der stopifnot Funktion.

> noop(runif(1e20)) 
# returns immediately and uses no memory 

Answer 1

ich denke, das tun würde:

noop <- function(...) invisible(NULL) 

als lazy evaluation hier zur Rettung kommt:

R> system.time(replicate(1e4, noop(runif(1e2)))) 
    user system elapsed 
    0.01 0.00 0.01 
R> system.time(replicate(1e4, noop(runif(1e5)))) 
    user system elapsed 
    0.01 0.00 0.02 
R> system.time(replicate(1e4, noop(runif(1e8)))) 
    user system elapsed 
    0.01 0.00 0.01 
R> system.time(replicate(1e4, noop(runif(1e11)))) 
    user system elapsed 
    0.01 0.00 0.01 
R> 

so, auch wenn wir N keine Laufzeiterhöhung erhöhen zu sehen ist.