TERR

Question

我在Spotfire中处理错误时遇到问题，因此我编写了这个简单的数据函数，当调用一个函数将数字除以字符时会抛出错误。

对我来说，这段代码看起来应该返回一个数据帧，其中r列中的第四行等于713，其他行是20 / n的结果。

但是，返回的结果数据帧在所有行中都有713个。

知道我缺少什么吗？

谢谢

divTest <- function(x){
    20/x
}

n <- -5:5
n[4] <- " "
out <- data.frame(n = n)
out$r <- NA

for(i in 1:length(n)){

   r <- tryCatch({
      divTest(n[i])
   },error = function(cond) {
      713
   })
   out$r[i] <- r 
}