背景：
假设R函数由于数值错误定义的参数而崩溃。我想使用inherit()捕获该崩溃。然后，尝试使用（也许）while()循环，在该循环中，我不断更改输入值，直到崩溃不再发生为止！最后，我想知道那个值是什么！
示例：
假设用户输入-5，我的功能（下面）将崩溃。但是发生崩溃之后，我的函数能否静默地评估不会导致崩溃的最小值是多少？
foo <- function(input) {
integrate(function(x) qt(.025, x), input, 1e3)[[1]]
}
# Example of crash:
foo(-5)