Обработка TryCatch в TERR

Question

У меня возникла проблема с обработкой ошибок в Spotfire, поэтому я написал эту простую функцию данных, которая выдает ошибку при вызове функции для деления числа на символ.

Мне кажется, что этот код должен возвращать фрейм данных, где 4-я строка в столбце 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 
}