การวนซ้ำเมื่อ“ คำเตือน ()” ปรากฏใน R

ฉันมีปัญหา: ฉันกำลังดำเนินการวนซ้ำเพื่อประมวลผลไฟล์หลายไฟล์ เมทริกซ์ของฉันมีขนาดใหญ่มากดังนั้นฉันมักจะมีหน่วยความจำไม่เพียงพอหากฉันไม่ระวัง

มีวิธีที่จะแยกออกจากการวนซ้ำหากมีการสร้างคำเตือนหรือไม่? มันทำงานวนไปเรื่อย ๆ และรายงานว่ามันล้มเหลวในภายหลัง ... น่ารำคาญ ความคิดใด ๆ ที่ชาญฉลาด stackoverflow-ers ?!

คุณสามารถเปลี่ยนคำเตือนให้เป็นข้อผิดพลาดได้ด้วย:

options(warn=2)

ข้อผิดพลาดจะขัดขวางการวนซ้ำซึ่งแตกต่างจากคำเตือน นอกจากนี้ R จะรายงานให้คุณทราบด้วยว่าข้อผิดพลาดเหล่านี้ถูกแปลงมาจากคำเตือน

j <- function() {
    for (i in 1:3) {
        cat(i, "\n")
        as.numeric(c("1", "NA"))
}}

# warn = 0 (default) -- warnings as warnings!
j()
# 1 
# 2 
# 3 
# Warning messages:
# 1: NAs introduced by coercion 
# 2: NAs introduced by coercion 
# 3: NAs introduced by coercion 

# warn = 2 -- warnings as errors
options(warn=2)
j()
# 1 
# Error: (converted from warning) NAs introduced by coercion

R ช่วยให้คุณกำหนดตัวจัดการเงื่อนไข

x <- tryCatch({
    warning("oops")
}, warning=function(w) {
    ## do something about the warning, maybe return 'NA'
    message("handling warning: ", conditionMessage(w))
    NA
})

ซึ่งส่งผลให้

handling warning: oops
> x
[1] NA

การดำเนินการยังคงดำเนินต่อไปหลังจาก tryCatch; คุณสามารถตัดสินใจยุติโดยการแปลงคำเตือนเป็นข้อผิดพลาด

x <- tryCatch({
    warning("oops")
}, warning=function(w) {
    stop("converted from warning: ", conditionMessage(w))
})

หรือจัดการกับเงื่อนไขอย่างสง่างาม (การประเมินอย่างต่อเนื่องหลังจากการเรียกเตือน)

withCallingHandlers({
    warning("oops")
    1
}, warning=function(w) {
    message("handled warning: ", conditionMessage(w))
    invokeRestart("muffleWarning")
})

ซึ่งพิมพ์

handled warning: oops
[1] 1

ตั้งค่าwarnตัวเลือกส่วนกลาง:

options(warn=1)  # print warnings as they occur
options(warn=2)  # treat warnings as errors

โปรดทราบว่า "คำเตือน" ไม่ใช่ "ข้อผิดพลาด" ลูปจะไม่สิ้นสุดสำหรับคำเตือน (เว้นแต่options(warn=2))