R 没有op函数作为stopifnot（）的条件替换

R中是否有一个无运算函数，即使参数的计算代价很高，它也会立即返回？我正在寻找有条件地替换

stopifnot

函数

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

我认为这样做可以：

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

---

因此，即使我们增加N，也看不到运行时间的增加。

谢谢。在base或任何包中是否预定义了类似的内容？据我所知不是这样，所以只需将一行添加到~/.Rprofile或Rprofile.site或。。。

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>