Displaying 1 result from an estimated 1 matches for "lwarn".
Did you mean:
warn
2006 Jun 25
1
using withCallingHandlers, how to deal with warning( , immediate. = TRUE)?
...warning", envir = .GlobalEnv))
+ rm("last.warning", envir = .GlobalEnv)
> withCallingHandlers(for (i in 1:3) {print(i);
+ warning("test", immediate. = (i < 2))},
+ warning = function(w) {
+ if (exists("last.warning", envir = .GlobalEnv)) {
+ lwarn <- get("last.warning", envir = .GlobalEnv)
+ } else lwarn <- list()
+ # Do not add more than 50 warnings
+ if (length(lwarn) >= 50) return()
+ # Add the warning to this list
+ nwarn <- length(lwarn)
+ names.warn <- names(lwarn)
+ Call <- condi...