r - while 循环直到没有错误

Question

我想运行一段有时会产生错误的代码。

例如:

a<-matrix(NA,ncol=1,nrow=sample(1:5,1))
a[sample(1:5,1),1]<-10

我想重复这些命令，直到它们运行没有错误为止。

是否可以将它嵌入到 while() 循环中，该循环继续运行直到出现错误并在两行可以无错误执行时停止？

Answer 1

tryCatch 的语法看起来像

result = tryCatch({
    expr
}, warning = function(warning-condition) {
    warning-handler-code
}, error = function(error-condition) {
    error-handler-code
}, finally={
    cleanup-code
})

您可以将代码包含在 tryCatch 内的无限循环中作为

while(1==1)

这两个概念应该可以帮助您解决问题。使用这些，你可以把它写成

boolFalse<-F
while(boolFalse==F)
{
  tryCatch({
    a<-matrix(NA,ncol=1,nrow=sample(1:5,1))
    a[sample(1:6,1),1]<-10;
    boolFalse<-T
  },error=function(e){
  },finally={})
}