Avviso di cattura specifico e ignorare gli altri

Question

Sto eseguendo il debug di un codice che fornisce diversi avvisi, ma sto cercando di interrompere il codice quando ricevo un avviso specifico in modo da poter osservare l'ambiente.

Ad esempio:

myfun <- function(){ 
    warning("The wrong warning") 
    warning("The right warning") 
    print("The end of the function") 
} 

tryCatch(myfun(), 
     warning = function(w){ 
      if(grepl("right", w$message)){ 
      stop("I have you now") 
      } else { 
      message(w$message) 
      } 
     }) 

Quello che mi piacerebbe che accada è per la funzione di fermarsi a "Il diritto di avvertimento", ma la cattura si interrompe non appena riceve il suo primo avvertimento. Come posso saltare gli avvertimenti che non interessano e fermarmi su quelli che mi interessano?

Answer 1

Credo withCallingHandlers è ciò che si vuole: Disregarding simple warnings/errors in tryCatch()

withCallingHandlers(myfun(), 
    warning = function(w){ 
    if(grepl("right", w$message)){ 
     stop("I have you now") 
    } else { 
     message(w$message) 
    } 
    })