break / exit komut dosyası

Biraz veri analizi yapan ve birkaç yüz satır uzunluğunda bir programım var.

Programın çok erken safhalarında, biraz kalite kontrol yapmak istiyorum ve yeterli veri yoksa programın sonlandırılmasını ve R konsoluna geri dönmesini istiyorum. Aksi takdirde, kodun geri kalanının çalışmasını istiyorum.

Denedim break, browserve quitve bunların hiçbiri programın geri kalanında yürütülmesini durdurmak (ve quitben olmasını istediğim bir şey değil de tamamen bırakma R gibi yürütme durdurur). Son çarem if-elseaşağıdaki gibi bir ifade oluşturmaktır :

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

ama bu kötü bir kodlama uygulaması gibi görünüyor. Bir şey mi kaçırıyorum?

stopifnot()Programın bir hata üretmesini istiyorsanız işlevi kullanabilirsiniz :

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

Hoş değil, ama işte exit()benim için çalışan bir komutu R'de uygulamanın bir yolu .

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

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

Sadece hafifçe test edildi, ancak bunu çalıştırdığımda this is the last message, komut dosyası herhangi bir hata mesajı olmadan iptal edildiğini görüyorum .

If-else yapınızı tersine çevirin:

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

Düzenleme: OP'nin uzun bir komut dosyası çalıştırdığı görülüyor, bu durumda yalnızca komut dosyasının kalite kontrolünden sonra

if (n >= 500) {

.... long running code here

}

Bir işlevin dışına çıkıyorsanız, muhtemelen return()açıkça veya örtük olarak isteyeceksiniz .

Örneğin, açık bir çift dönüş

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

İma return()edilmekle, son satırın sanki yapmışsınız gibi olduğunu söylüyorum return(xx), ancak görüşmeyi bırakmak biraz daha etkilidir return().

Bazıları birden çok dönüşü kötü stil kullanmayı düşünür; uzun işlevlerde, işlevin nerede çıktığını takip etmek zorlaşabilir veya hataya açık hale gelebilir. Bu nedenle bir alternatif, tek bir dönüş noktasına sahip olmak, ancak tümceyi kullanarak dönüş nesnesini değiştirmektir if () else (). Böyle bir değişiklik foo()olacak

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

Belki de bir noktada uzun bir komut dosyasını yürütmeyi bırakmak istersiniz. yani. C veya Python'da bir çıkışı () sabit kodlamak istediğiniz gibi.

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

Bu eski bir soru ama henüz temiz bir çözüm yok. Muhtemelen bu belirli soruyu yanıtlamıyor, ancak 'bir R betiğinden zarif bir şekilde nasıl çıkılır' sorusuna yanıt arayanlar muhtemelen buraya inecek. Görünüşe göre R geliştiricileri bir exit () işlevini uygulamayı unutmuş. Her neyse, bulduğum numara:

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

Temel olarak, belirli bir kod bloğunun devam edip etmediğini belirtmek için bir bayrak kullanırsınız. Ardından stop(), bir tryCatch()işlevin hata işleyicisine özelleştirilmiş bir mesaj iletmek için işlevi kullanırsınız. Hata işleyici, nazikçe çıkmak için mesajınızı alırsa, hatayı yok sayar ve devam bayrağını olarak ayarlayın FALSE.

Mevcut işlemi kesmek ve konsola geri dönmek için "araçlar" paketindeki pskillişlevi kullanabilirsiniz R. Somut olarak, her komut dosyasının başında kaynak oluşturduğum bir başlangıç ​​dosyasında aşağıdaki işlevi tanımlıyorum. Bununla birlikte, bunu doğrudan kodunuzun başında da kopyalayabilirsiniz. Ardından halt()komut dosyasının çalıştırılmasını anında durdurmak için kodunuzun herhangi bir noktasına ekleyin . Bu işlev GNU / Linux üzerinde iyi çalışıyor ve Rbelgelere bakılırsa Windows üzerinde de çalışıyor olmalı (ama kontrol etmedim).

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

Buraya:

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

Her ikisi de quit()ve stop(message)betiğinizden çıkacak. Komut dosyanızı R komut isteminden kaynaklıyorsanız, o quit()zaman R'den de çıkacaktır.