ngắt / thoát tập lệnh

Tôi có một chương trình thực hiện một số phân tích dữ liệu và dài vài trăm dòng.

Rất sớm trong chương trình, tôi muốn thực hiện một số kiểm soát chất lượng và nếu không có đủ dữ liệu, tôi muốn chương trình kết thúc và quay lại bảng điều khiển R. Nếu không, tôi muốn phần còn lại của mã thực thi.

Tôi đã thử break, browservà quitvà không ai trong số họ dừng lại việc thực hiện phần còn lại của chương trình (và quitdừng việc thực hiện cũng như hoàn toàn bỏ R, mà không phải là điều mà tôi muốn xảy ra). Phương pháp cuối cùng của tôi là tạo một if-elsetuyên bố như sau:

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

nhưng điều đó có vẻ giống như thực hành mã hóa tồi. Tui bỏ lỡ điều gì vậy?

Bạn có thể sử dụng stopifnot()hàm nếu bạn muốn chương trình tạo ra lỗi:

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

Không đẹp, nhưng đây là một cách để triển khai một exit()lệnh trong R phù hợp với tôi.

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

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

Chỉ được kiểm tra nhẹ, nhưng khi tôi chạy cái này, tôi thấy this is the last messagevà sau đó tập lệnh hủy bỏ mà không có bất kỳ thông báo lỗi nào.

Đảo ngược cấu trúc if-else của bạn:

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

Chỉnh sửa: Có vẻ như OP đang chạy một tập lệnh dài, trong trường hợp đó, người ta chỉ cần gói phần của tập lệnh sau khi kiểm soát chất lượng với

if (n >= 500) {

.... long running code here

}

Nếu phá vỡ một chức năng , có thể bạn sẽ chỉ muốnreturn() , rõ ràng hoặc ẩn ý.

Ví dụ: lợi nhuận kép rõ ràng

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

Theo return()ngụ ý, tôi có nghĩa là dòng cuối cùng như thể bạn đã hoàn thành return(xx), nhưng sẽ hiệu quả hơn một chút nếu bỏ cuộc gọi đếnreturn() .

Một số xem xét sử dụng nhiều trả về kiểu xấu; trong các chức năng dài, việc theo dõi vị trí thoát chức năng có thể trở nên khó khăn hoặc dễ xảy ra lỗi. Do đó, một giải pháp thay thế là có một điểm trả về duy nhất, nhưng thay đổi đối tượng trả về bằng if () else ()mệnh đề. Một sửa đổi như vậy foo()sẽ là

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

Có lẽ bạn chỉ muốn dừng thực thi một đoạn script dài vào một lúc nào đó. I E. giống như bạn muốn viết mã một lệnh exit () bằng C hoặc Python.

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

Đây là một câu hỏi cũ nhưng vẫn chưa có một giải pháp sạch. Đây có lẽ không trả lời câu hỏi cụ thể này, nhưng những người đang tìm kiếm câu trả lời về 'cách thoát khỏi tập lệnh R một cách duyên dáng' có thể sẽ đến đây. Có vẻ như các nhà phát triển R đã quên triển khai một hàm exit (). Dù sao, mẹo tôi đã tìm ra là:

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

Về cơ bản, bạn sử dụng một cờ để chỉ ra sự tiếp tục hay không của một khối mã được chỉ định. Sau đó, bạn sử dụng stop()hàm để chuyển một thông báo tùy chỉnh đến trình xử lý lỗi của một tryCatch()hàm. Nếu trình xử lý lỗi nhận được thông báo của bạn để thoát một cách duyên dáng, thì nó chỉ bỏ qua lỗi và đặt cờ tiếp tục thành FALSE.

Bạn có thể sử dụng pskillchức năng trong Rgói "công cụ" để ngắt quá trình hiện tại và quay lại bảng điều khiển. Cụ thể, tôi có chức năng sau được xác định trong tệp khởi động mà tôi lấy nguồn ở đầu mỗi tập lệnh. Tuy nhiên, bạn cũng có thể sao chép nó trực tiếp khi bắt đầu mã của mình. Sau đó, chèn halt()vào bất kỳ điểm nào trong mã của bạn để ngừng thực thi tập lệnh ngay lập tức. Chức năng này hoạt động tốt trên GNU / Linux và đánh giá từ Rtài liệu, nó cũng sẽ hoạt động trên Windows (nhưng tôi đã không kiểm tra).

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

Đây:

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

Cả hai quit()và stop(message)sẽ thoát khỏi tập lệnh của bạn. Nếu bạn đang tìm nguồn tập lệnh của mình từ dấu nhắc lệnh R, thì quit()bạn cũng sẽ thoát khỏi R.