通过产生 NA 来捕获错误

【问题标题】：Catch an error by producing NA通过产生 NA 来捕获错误
【发布时间】：2013-01-18 02:29:25
【问题描述】：

我希望在函数返回错误而不是代码停止时获得 NA。

我现在用

try.test<-try(results<-lm(log(0)~1))
if(class(try.test)=="try-error"){results<-NA}

我也尝试过使用 tryCatch。

我想找一个单一的功能/线路解决方案。

【问题讨论】：

【解决方案1】：

试试

result <- tryCatch(lm(log(0)~1), error=function(err) NA)

但这会捕获所有错误，而不仅仅是来自 log(0) 的错误。

【讨论】：

【解决方案2】：

一种不太优雅但同样简短的解决问题的方法。

results <- NA
try(results<-lm(log(0)~1), silent = TRUE)

如果您正在寻找一种优雅的方式来处理错误，我建议您研究 monad 的概念；使用这些结构可以减少脚本中“if(!na(x))....”样板的数量。

【讨论】：