Catch specific warning and ignore others

Question

I'm debugging some code which gives several warnings, but I'm trying to stop the code when I receive a specific warning so I can look at the environment.

For example:

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

What I'd like to happen is for the function to stop at "The right warning", but the catch stops as soon as it receives its first warning. How can I skip over warnings that aren't of interest and stop on the ones that interest me?

score 5 · Accepted Answer · edited May 23 '17 at 11:52

5

I believe withCallingHandlers is what you want: 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)
     }
   })

edited May 23 '17 at 11:52

Community

1
1

answered May 04 '16 at 16:30

fanli

1,069
7
13

That's dead on it. I'm going to mark my question as duplicate. – sebastian-c May 04 '16 at 17:18

Catch specific warning and ignore others

1 Answers1