trycatch（）logspline不收敛

Question

我有一件事我过去几天都无法解决。这是： 当logspline没有收敛时我想trycatch（）。我必须这样做的部分代码如下：

tryCatch({
pl1<-logspline(cost_disease,lbound=0,ubound=max(cost_disease), error.action=1)
pl2<-logspline(cost_disease1,lbound=0,ubound=max(cost_disease1), error.action=1)
dev.off()
}, 
error=function(e){cat("Logspline failed!",conditionMessage(e), "\n")})

我提到我正在使用R闪亮。我仍然得到这个错误：

Error in oldlogspline(x, lbound = jlx, ubound = jux) : * no convergence

谢谢！