Función no operativa como reemplazo condicional para stopifnot()

Question

¿Hay una función no operativa en R para que, incluso si los parámetros serían costosos de evaluar, se devuelva inmediatamente? Estoy buscando un reemplazo condicional de la función stopifnot.

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

Answer 1

creo que esto haría:

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

evaluación como perezoso viene al rescate aquí:

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> 

por lo que incluso cuando aumentamos N ningún aumento en tiempo de ejecución se puede ver.