Пока цикл до ошибки

Question

Я хотел бы запустить кусок кода, который иногда вызывает ошибку.

Например:

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

Я хотел бы repeate этих команд, пока они не закончатся без ошибок.

Возможно ли внедрить его в цикл 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) 

Эти 2 понятия должны помочь вам решить вашу проблему. С их помощью можно написать как

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={}) 
}