r - 为什么R说没有break/next循环，跳到顶层

Question

为什么 R 会抛出错误“Error in value[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
}