为什么R说没有循环中断/下一个，跳到顶层

Question

为什么 R 会抛出错误“值错误 [3L] : no loop for break/next, jumping to top level”而不是进入循环的下一次迭代？我在 R 版本 2.13.1 (2011-07-08)

for (i in seq(10)) { 
   tryCatch(stop(), finally=print('whoops'), error=function(e) next) 
}

出现这个问题是因为我想在绘图失败时创建不同的图像或根本没有图像。使用 joran 方法的代码如下所示：

for (i in c(1,2,Inf)) { 
   fname = paste(sep='', 'f', i, '.png')
   png(fname, width=1024, height=768) 
   rs <- tryCatch(plot(i), error=function(e) NULL)
   if (is.null(rs)){
    print("I'll create a different picture because of the error.")
   }
   else{
    print(paste('image', fname, 'created'))
    dev.off()
    next
   } 
}

Answer 1

也许你可以试试：

for (i in seq(10)) { 
   flag <- TRUE
   tryCatch(stop(), finally=print('whoops'), error=function(e) flag<<-FALSE)
   if (!flag) next
}

Answer 2

不幸的是，一旦您进入 error 函数，您就不再处于循环中。有一种方法可以解决这个问题：

for (i in seq(10)) { 
   delayedAssign("do.next", {next})
   tryCatch(stop(), finally=print('whoops'),
        error=function(e) force(do.next))
}

虽然那是……嗯，很老套。也许有一种不那么老套的方法，但我看不到。

（这是因为delayedAssign 在每个循环中都会发生，抵消了force 的努力）

编辑

或者你可以使用延续：

for (i in seq(10)) { 
   callCC(function(do.next) {
       tryCatch(stop(), finally=print('whoops'),
           error=function(e)    do.next(NULL))
       # Rest of loop goes here
       print("Rest of loop")
   })
}

编辑

正如 Joris 指出的那样，您可能实际上不应该使用其中任何一个，因为它们读起来令人困惑。但是如果你真的想在循环中调用next，这就是方法:)。

Answer 3

基于if 检查将next 放在tryCatch 之外不是更有意义吗？像这样的：

for (i in c(1,2,Inf)) { 
   rs <- tryCatch(seq(i), finally=print('whoops'), error=function(e) NULL)
   if (is.null(rs)){
    print("I found an error!")
   }
   else{
    next
   } 
}

虽然我不确定这是你想要的，因为我有点不清楚你想要做什么。

编辑

根据 OP 的修订，这个公式对我有用：

plotFn <- function(fname,i){
    png(fname, width=400, height=200)
    plot(i)
    dev.off()
}


for (i in c(1,Inf,3)) { 
   fname = paste('f', i, '.png',sep="")
   rs <- tryCatch(plotFn(fname,i), error=function(e){dev.off(); return(NULL)})
   if (is.null(rs)){
    print("I'll create a different picture because of the error.")
   }
   else{
    print(paste('image', fname, 'created'))
    next
   } 
}

我确定在需要修复错误的情况下没有dev.off() 调用。我必须更深入地了解为什么将png 和plot 分开会导致问题。但我认为无论如何保持png(); plot(); dev.off() 序列自包含可能更清洁。另请注意，我在错误函数中添加了dev.off()。

我还没有测试过如果plotFn 在png() 上抛出一个错误，永远不会创建设备然后到达错误函数并调用dev.off() 会发生什么。行为可能取决于您在 R 会话中进行的其他操作。