मैं कैसे जांच सकता हूं कि एक फ़ंक्शन कॉल चेतावनी में परिणाम देता है या नहीं?

Question

आर में, मैं कैसे निर्धारित कर सकता हूं कि एक फ़ंक्शन कॉल चेतावनी में परिणाम देता है या नहीं?

यह है कि, फ़ंक्शन को कॉल करने के बाद मैं जानना चाहूंगा कि कॉल के उस उदाहरण ने चेतावनी दी है या नहीं।

Answer 1

यदि आप try संरचनाओं का उपयोग करना चाहते हैं, तो आप चेतावनियों के लिए विकल्प सेट कर सकते हैं। ?options भी देखें।

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

दोनों परिणाम और चेतावनी प्राप्त करने के लिए:: बेहतर tryCatch() उपयोग करने के लिए है

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

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

का उपयोग 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

यहाँ एक उदाहरण है:

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

शायद यह किसी भी तरह अप्रत्यक्ष है, लेकिन मैं और अधिक सरल रास्ता पता नहीं है।

Answer 3

आर मदद मेलिंग सूची पर (http://tolstoy.newcastle.edu.au/R/help/04/06/0217.html देखें), ल्यूक टियरनी ने लिखा:

"यदि आप एक फू लिखना चाहते हैं nction कि एक मूल्य की गणना करता है और चेतावनी आप इसे इस तरह से कर सकता सभी एकत्र करता है:? बाहर अगर

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