r - 调试lapply/sapply调用

Question

使用lapply和friends编写的代码通常比循环更容易被看到，并且Rish比循环更容易。我喜欢下一个家伙，也很喜欢，但是当出现问题时我该如何调试呢？例如:

> ## a list composed of numeric elements 
> x <- as.list(-2:2)
> ## turn one of the elements into characters
> x[[2]] <- "what?!?"
> 
> ## using sapply
> sapply(x, function(x) 1/x)
Error in 1/x : non-numeric argument to binary operator

如果我使用过for循环:

> y <- rep(NA, length(x))
> for (i in 1:length(x)) {
+     y[i] <-  1/x[[i]]
+ }
Error in 1/x[[i]] : non-numeric argument to binary operator

但是我会知道错误发生在哪里:

> i
[1] 2

使用lapply / sapply时该怎么办？

Answer 1

使用标准的R调试技术可以在发生错误时完全停止:

options(error = browser) 

要么

options(error = recover)

完成后，恢复为标准行为:

options(error = NULL)