调试lapply/sapply调用

Question

使用lapply和朋友编写的代码通常在眼睛上更容易,而且比循环更容易Rish.我和下一个人一样喜欢lapply,但是当出现问题时如何调试呢？例如:

> ## 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

如果使用try()语句包装内部函数,则可以获得更多信息:

> sapply(x, function(x) try(1/x))
Error in 1/x : non-numeric argument to binary operator
[1] "-0.5"                                                    
[2] "Error in 1/x : non-numeric argument to binary operator\n"
[3] "Inf"                                                     
[4] "1"                                                       
[5] "0.5"

在这种情况下,您可以看到哪个索引失败.

Answer 2

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

options(error = browser) 

要么

options(error = recover)

完成后,恢复标准行为:

options(error = NULL)

Answer 3

使用plyr包,包括.inform = TRUE:

library(plyr)
laply(x, function(x) 1/x, .inform = TRUE)