चेतावनियां() फ़ंक्शन के भीतर काम नहीं करती हैं? इस के आसपास कोई कैसे काम कर सकता है?

Question

op <- options(warn=0) #although doesn't work for any value of warn 
assign("last.warning", NULL, envir = baseenv()) 
thisDoesntWork<- function() { 
warning("HEY, this is definitely a warning!") 
cat(paste("number of warnings:",length(warnings()))) 
} 
>thisDoesntWork() 
Warning in thisDoesntWork() : HEY, this is definitely a warning! 
number of warnings: 0 

चेतावनी की संख्या 1 के बजाय 0 होना चाहिए - ऐसा लगता है कि warnings() रिटर्न कुछ भी नहीं करता है, तो एक समारोह के भीतर बुलाया। क्यूं कर? चेतावनियां होने पर फ़ंक्शन में जांचने के लिए कोई इसके आसपास कैसे काम कर सकता है, और उन्हें प्रिंट कर सकता है?

मैं tryCatch का उपयोग नहीं करना चाहता, क्योंकि तब मैं उस मान को खो देता हूं जो फ़ंक्शन देता है (यह तब भी मान्य मान लौटा सकता है, भले ही यह चेतावनी उत्पन्न हो)।

Answer 1

है यहाँ के लिए suppressWarnings

function (expr) 
{ 
    withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning")) 
} 

मैं इसे करने के लिए एक छोटे से बदलाव किया है कोड है इसके बजाय चेतावनियों की संख्या गिनें।

countWarnings <- function(expr) 
{ 
    .number_of_warnings <- 0L 
    frame_number <- sys.nframe() 
    ans <- withCallingHandlers(expr, warning = function(w) 
    { 
     assign(".number_of_warnings", .number_of_warnings + 1L, 
     envir = sys.frame(frame_number)) 
     invokeRestart("muffleWarning") 
    }) 
    message(paste("No. of warnings thrown:", .number_of_warnings)) 
    ans 
} 

एक परीक्षण:

countWarnings(log(-1)) 
No. of warnings thrown: 1 
[1] NaN 

एक अन्य परीक्षण:

foo <- function() 
{ 
    warning("first warning!") 
    warning("second warning!") 
    warning("third warning!") 
    invisible() 
} 
countWarnings(foo()) 
No. of warnings thrown: 3 
NULL 

Answer 2

आपका उदाहरण एक चेतावनी देता है।

> assign("last.warning", NULL, envir = baseenv()) 
> thisDoesntWork <- function() { 
+ warning("HEY, this is definitely a warning!") 
+ cat(paste("number of warnings:",length(warnings())),"\n") 
+ } 
> thisDoesntWork() 
number of warnings: 0 
Warning message: 
In thisDoesntWork() : HEY, this is definitely a warning! 
> warnings() # HEY, here's your warning!!! 
Warning message: 
In thisDoesntWork() : HEY, this is definitely a warning! 

प्रलेखन स्पष्ट नहीं है, लेकिन मुझे नहीं लगता कि last.warning कॉल खत्म (विशेष रूप से कॉल दिया क्या वापस किया जा सकता का हिस्सा है) जब तक सेट हो जाता है है।

Answer 3

शायद यह एक बहुत ही बहुत बुरा समाधान नहीं है ...

fw<-function(){warning("warn...");return(99)} 
fn<-function(){return(88)} 

f<-function(){ 
    w<-0 
    v<-NULL 
    v<-tryCatch(fw(),warning=function(w){w}) 
    if("warning"%in%class(v)){ 
     w<-w+1 # e.g., count up the number of warning 
     v<-fw() 
    } 
    print(v) 

    v<-NULL 
    v<-tryCatch(fn(),warning=function(w){w}) 
    if("warning"%in%class(v)){ 
     w<-w+1 # e.g., count up the number of warning 
     v<-fn() 
    } 
    print(v) 
} 
f() 

समारोह दो बार बुला यदि चेतावनी होती है ... हालांकि मुझे विश्वास है कि वहाँ और अधिक सुरुचिपूर्ण समाधान

Answer 4

चेतावनी है होना चाहिए फ़ंक्शन रिटर्न से पहले जारी नहीं किया गया। विकल्पों के लिए दस्तावेज़ देखें ("चेतावनी दी है"):

options(warn=1L) 
thisDoesntWork() 
#Warning in thisDoesntWork() : HEY, this is definitely a warning! 
#number of warnings: 1 

Answer 5

यहाँ एक वैकल्पिक हल

..my_warning <- 0L 

thisDoesWork<- function(){ 
    assign("last.warning", NULL, envir = baseenv()) 
    warning("HEY, this is definitely a warning!", {..my_warning <<- ..my_warning+1L;""}) 
    str(last.warning) 
    cat(paste("number of warnings:", ..my_warning, "\n")) 
} 


thisDoesWork() 
Warning in thisDoesWork() : HEY, this is definitely a warning! 
NULL 
number of warnings: 1 
>  thisDoesWork() 
Warning in thisDoesWork() : HEY, this is definitely a warning! 
NULL 
number of warnings: 2 
>  thisDoesWork() 
Warning in thisDoesWork() : HEY, this is definitely a warning! 
NULL 
number of warnings: 3 
>