r - tryCatch :Error not caught

Question

如果这个问题听起来很幼稚，请原谅。
在尝试递归打开文件连接后尝试在closeAllConnections()块中使用tryCatch()时，似乎未正确捕获该错误。

这是示例代码:

fileOpenRec<-function(iter){
      if(iter<130){
       try(
        {
         aFile="file1.txt"
         fileCon<-file(aFile, "a")
         fileOpenRec(iter+1)
        }
       )
     }
    }

tryCatch(fileOpenRec(1), error=function(e){print("Error!");closeAllConnections()})

上面的代码将抛出: Error in file(aFile, "a") : all connections are in use，并且不会关闭连接。
这是预期的行为吗？ (我对此表示怀疑，如果我在这里遗漏了一些东西，请纠正我)

PS:关闭连接我很少有解决方法，例如添加 finally并将其关闭。

Answer 1

比较

> tryCatch({ stop("oops"); 1 }, error=function(err) "caught")
[1] "caught"

与

> tryCatch({ try(stop("oops")); 1 }, error=function(err) "caught")
Error in try(stop("oops")) : oops
[1] 1

内部 try()捕获(并打印)错误，因此外部 tryCatch与无关。从您的代码中删除 try()。