r - TERR 中的 TryCatch 处理

Question

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

对我来说，这段代码看起来应该返回一个数据框，其中 r 列中的第 4 行等于 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 
}