Jak mogę sprawdzić, czy wywołanie funkcji skutkuje ostrzeżeniem?

Question

W R, w jaki sposób mogę ustalić, czy wywołanie funkcji skutkuje ostrzeżeniem?

Oznacza to, że po wywołaniu funkcji chciałbym się dowiedzieć, czy to wystąpienie wywołania spowodowało ostrzeżenie.

Answer 1

Jeśli chcesz użyć konstrukcji try, możesz ustawić opcje ostrzegania. Zobacz także ?options. Lepiej jest użyć tryCatch():

x <- function(i){ 
    if (i < 10) warning("A warning") 
    i 
} 

tt <- tryCatch(x(5),error=function(e) e, warning=function(w) w) 

tt2 <- tryCatch(x(15),error=function(e) e, warning=function(w) w) 

tt 
## <simpleWarning in x(5): A warning> 

tt2 
## [1] 15 

if(is(tt,"warning")) print("KOOKOO") 
## [1] "KOOKOO" 

if(is(tt2,"warning")) print("KOOKOO") 

Aby uzyskać zarówno wynik i ostrzeżenie:

tryCatch(x(5),warning=function(w) return(list(x(5),w))) 

## [[1]] 
## [1] 5 
## 
## [[2]] 
## <simpleWarning in x(5): A warning> 

Korzystanie try

op <- options(warn=2) 

tt <- try(x()) 
ifelse(is(tt,"try-error"),"There was a warning or an error","OK") 
options(op) 

Answer 2

Oto przykład:

testit <- function() warning("testit") # function that generates warning. 

assign("last.warning", NULL, envir = baseenv()) # clear the previous warning 

testit() # run it 

if(length(warnings())>0){ # or !is.null(warnings()) 
    print("something happened") 
} 

może to jest jakiś sposób pośredni, ale nie wiem, bardziej bezpośredni sposób.

Answer 3

na liście mailingowej R-pomocy (patrz http://tolstoy.newcastle.edu.au/R/help/04/06/0217.html) Luke Tierney napisał:

"Jeśli chcesz napisać fu nction który oblicza wartość i zbiera wszystkie ostrzegawczy można zrobić to tak:?

withWarnings <- function(expr) { 
    myWarnings <- NULL 
    wHandler <- function(w) { 
     myWarnings <<- c(myWarnings, list(w)) 
     invokeRestart("muffleWarning") 
    } 
    val <- withCallingHandlers(expr, warning = wHandler) 
    list(value = val, warnings = myWarnings) 
}