สคริปต์ทำลาย / ออก

ฉันมีโปรแกรมที่วิเคราะห์ข้อมูลและมีความยาวไม่กี่ร้อยบรรทัด

ในช่วงแรกของโปรแกรมฉันต้องการควบคุมคุณภาพและหากมีข้อมูลไม่เพียงพอฉันต้องการให้โปรแกรมยุติและกลับไปที่คอนโซล R มิฉะนั้นฉันต้องการให้โค้ดที่เหลือทำงาน

ฉันได้พยายามbreak, browserและquitและไม่มีพวกเขาหยุดการทำงานของส่วนที่เหลือของโปรแกรม (และquitหยุดการดำเนินการเช่นเดียวกับการเลิกสูบบุหรี่อย่างสมบูรณ์ R ซึ่งเป็นสิ่งที่ฉันไม่ต้องการให้เกิดขึ้น) ทางเลือกสุดท้ายของฉันคือการสร้างif-elseคำสั่งดังต่อไปนี้:

 if(n < 500){}
 else{*insert rest of program here*}

แต่ดูเหมือนว่าการเขียนโค้ดไม่ดี ฉันพลาดอะไรไปรึเปล่า?

คุณสามารถใช้stopifnot()ฟังก์ชันนี้ได้หากคุณต้องการให้โปรแกรมสร้างข้อผิดพลาด:

foo <- function(x) {
    stopifnot(x > 500)
    # rest of program
}

ไม่สวย แต่นี่คือวิธีใช้exit()คำสั่งใน R ซึ่งเหมาะกับฉัน

exit <- function() {
  .Internal(.invokeRestart(list(NULL, NULL), NULL))
}

print("this is the last message")
exit()
print("you should not see this")

ทดสอบเพียงเล็กน้อย แต่เมื่อฉันเรียกใช้สิ่งนี้ฉันเห็นthis is the last messageแล้วสคริปต์ก็ยกเลิกโดยไม่มีข้อความแสดงข้อผิดพลาดใด ๆ

ย้อนกลับโครงสร้าง if-else ของคุณ:

if(n >= 500) {
  # do stuff
}
# no need for else

แก้ไข:ดูเหมือนว่า OP กำลังเรียกใช้สคริปต์ที่ยาวในกรณีนั้นจำเป็นต้องตัดส่วนของสคริปต์หลังจากการควบคุมคุณภาพด้วย

if (n >= 500) {

.... long running code here

}

หากแตกฟังก์ชันออกไปคุณอาจต้องการreturn()ไม่ว่าจะโดยชัดแจ้งหรือโดยปริยาย

ตัวอย่างเช่นผลตอบแทนสองเท่าที่ชัดเจน

foo <- function(x) {
  if(x < 10) {
    return(NA)
  } else {
    xx <- seq_len(x)
    xx <- cumsum(xx)
  }
  xx ## return(xx) is implied here
}

> foo(5)
[1] 0
> foo(10)
 [1]  1  3  6 10 15 21 28 36 45 55

โดยreturn()นัยแล้วฉันหมายความว่าบรรทัดสุดท้ายเหมือนกับว่าคุณทำเสร็จreturn(xx)แล้ว แต่จะมีประสิทธิภาพมากกว่าเล็กน้อยที่จะออกจากการโทรไปที่return()แต่มันเป็นเรื่องเล็กน้อยมีประสิทธิภาพมากขึ้นที่จะปล่อยออกมาเรียกร้องให้

บางคนพิจารณาใช้รูปแบบที่ไม่ถูกต้องของผลตอบแทนหลายรายการ ในฟังก์ชั่นที่ยาวนานการติดตามตำแหน่งที่ออกจากฟังก์ชันอาจทำได้ยากหรือเกิดข้อผิดพลาดได้ง่าย ดังนั้นอีกทางเลือกหนึ่งคือการมีจุดส่งคืนเดียว แต่เปลี่ยนวัตถุส่งคืนโดยใช้if () else ()อนุประโยค การปรับเปลี่ยนดังกล่าวfoo()จะเป็น

foo <- function(x) {
  ## out is NA or cumsum(xx) depending on x
  out <- if(x < 10) {
    NA
  } else {
    xx <- seq_len(x)
    cumsum(xx)
  }
  out ## return(out) is implied here
}

> foo(5)
[1] NA
> foo(10)
 [1]  1  3  6 10 15 21 28 36 45 55

บางทีคุณอาจต้องการหยุดเรียกใช้สคริปต์ที่ยาวในบางจุด กล่าวคือ. เช่นคุณต้องการฮาร์ดโค้ด exit () ใน C หรือ Python

print("this is the last message")
stop()
print("you should not see this")

นี่เป็นคำถามเก่า แต่ยังไม่มีวิธีแก้ปัญหาที่ชัดเจน นี่อาจไม่ได้ตอบคำถามเฉพาะนี้ แต่ผู้ที่มองหาคำตอบเกี่ยวกับ 'วิธีการออกจากสคริปต์ R อย่างสง่างาม' อาจจะมาที่นี่ ดูเหมือนว่านักพัฒนา R ลืมใช้ฟังก์ชัน exit () อย่างไรก็ตามเคล็ดลับที่ฉันพบคือ:

continue <- TRUE

tryCatch({
     # You do something here that needs to exit gracefully without error.
     ...

     # We now say bye-bye         
     stop("exit")

}, error = function(e) {
    if (e$message != "exit") {
        # Your error message goes here. E.g.
        stop(e)
    }

    continue <<-FALSE
})

if (continue) {
     # Your code continues here
     ...
}

cat("done.\n")

โดยทั่วไปคุณใช้แฟล็กเพื่อระบุความต่อเนื่องหรือไม่ของบล็อกโค้ดที่ระบุ จากนั้นคุณใช้stop()ฟังก์ชันเพื่อส่งข้อความที่กำหนดเองไปยังตัวจัดการข้อผิดพลาดของtryCatch()ฟังก์ชัน FALSEหากจัดการข้อผิดพลาดได้รับข้อความของคุณออกได้อย่างสง่างามแล้วมันก็ไม่สนใจข้อผิดพลาดและตั้งธงต่อเนื่องเพื่อ

คุณสามารถใช้pskillฟังก์ชันในRแพ็กเกจ "tools" เพื่อขัดจังหวะกระบวนการปัจจุบันและกลับไปที่คอนโซล ที่จริงฉันมีฟังก์ชันต่อไปนี้ที่กำหนดไว้ในไฟล์เริ่มต้นที่ฉันมาที่จุดเริ่มต้นของแต่ละสคริปต์ อย่างไรก็ตามคุณสามารถคัดลอกได้โดยตรงที่จุดเริ่มต้นของรหัสของคุณอย่างไรก็ตาม จากนั้นแทรกhalt()ที่จุดใดก็ได้ในรหัสของคุณเพื่อหยุดการเรียกใช้สคริปต์ได้ทันที ฟังก์ชั่นนี้ใช้งานได้ดีบน GNU / Linux และเมื่อพิจารณาจากRเอกสารแล้วก็ควรใช้งานได้บน Windows ด้วย (แต่ฉันไม่ได้ตรวจสอบ)

# halt: interrupts the current R process; a short iddle time prevents R from
# outputting further results before the SIGINT (= Ctrl-C) signal is received 
halt <- function(hint = "Process stopped.\n") {
    writeLines(hint)
    require(tools, quietly = TRUE)
    processId <- Sys.getpid() 
    pskill(processId, SIGINT)
    iddleTime <- 1.00
    Sys.sleep(iddleTime)
}

ที่นี่:

if(n < 500)
{
    # quit()
    # or 
    # stop("this is some message")
}
else
{
    *insert rest of program here*
}

ทั้งสองอย่างquit()และstop(message)จะออกจากสคริปต์ของคุณ หากคุณกำลังจัดหาสคริปต์ของคุณจากพรอมต์คำสั่ง R ระบบquit()จะออกจาก R เช่นกัน