r -r- rycatch（）funtion-如何保存错误/警告消息？

Question

我正在模拟多级数据并将其拟合到各种多级模型中。

我想制作一个函数，如果存在任何错误（例如“无法收敛”或“单数拟合”），我想保存它。

例如，我的模型是

lmer（y〜x1 + x2 +（1 | pid），data = sim_data）。

这是许多条件，因此将在此模型中拟合各种数据。

如何在数据框架或列表中保存错误或整个警告消息？

（例如，第一个数据集 - ＆gt;无错误，第二个数据集 - 汇聚错误...等）

Answer 1

您可以使用for循环在条件下迭代或“各种数据”

。

dummyfunction <- function(x) {
  if (i == 0) {
    stop("Error occurred")
  }
  return(i * 100)
}

0

result <- list()

：

for (i in c(-1, 0, 1)) {

  # Using tryCatch to handle errors 
  # that might occur when executing dummyfunction (i.e. put them in the result list)
  #
  result[[as.character(i)]] <- tryCatch(dummyfunction(i),
    error = function(e) e
  )  
  
}