Get exact number of warnings() in R

Question

I am running a simulation using an iterative algorithm, which should ideally converge at some point. I received numerous warning messages, checked all warnings that were reported and need to report the precise number of warning messages that I got for my choice of convergence criteria.

There were 50 or more warnings (use warnings() to see the first 50)

How can I get the exact number of warning messages in R?

jay.sf · Answer 1 · 2022-10-09T10:05:52.120

2

You could set nwarnings options.

options()$nwarnings  ## check current state
# [1] 50

oo <- options(nwarnings=10000)  ## set, store old options

options()$nwarnings  ## check
# [1] 10000

options(oo)  ## restore old options

options()$nwarnings  ## check
# [1] 50

However, with this approach you only see how many warnings have occurred (and you probably need to set nwarnings even higher).

In simulation studies you might be interested in which cases the warning occurred. So, alternatively think about storing the warning together with the respective replication. See this nice Q&A here on Stack Overflow.

edited Oct 09 '22 at 10:05

answered Oct 08 '22 at 15:58

jay.sf

60,139
8
53
110

@ jay.sf: Thanks! Setting `nwarnings` higher can be done like this: `options(nwarnings = 1000)`. This worked for me anyways. – R-ista Oct 09 '22 at 10:02
@R-ista yeah was a typo thanks for spotting – jay.sf Oct 09 '22 at 10:06

score 1 · Answer 2 · answered Oct 08 '22 at 16:07

1

You can capture each warning message in a vector using withCallingHandlers. The following loop for example should emit 66 warnings:

for(i in 1:66) {
  b <- as.numeric('a')
}
#> There were 50 or more warnings (use warnings() to see the first 50)

But we can catch an indefinite number of warnings if we wrap run our code with a calling handler:

warn_msgs <- character()

for(i in 1:66) {
  
  withCallingHandlers(
  {
    b <- as.numeric('a')
  },
  warning = function(w) warn_msgs <<- append(warn_msgs, w$message)
  )
}
#> There were 50 or more warnings (use warnings() to see the first 50)

length(warn_msgs)
#> [1] 66

^{Created on 2022-10-08 with reprex v2.0.2}

answered Oct 08 '22 at 16:07

Allan Cameron

147,086
7
49
87

Thanks a lot. Can I just ask: `<<- append(warn_msgs, w$message)` should be `<- append(warn_msgs, w$message)`? – R-ista Oct 09 '22 at 09:46
@R-ista no, that doesn't work. You need the `<<-` operator so that `warn_msgs` is written to in the global environment. Otherwise it would be treated as local to the function. – Allan Cameron Oct 09 '22 at 11:53

Get exact number of warnings() in R

2 Answers2