ブレーク/終了スクリプト

私はいくつかのデータ分析を行い、数百行の長さのプログラムを持っています。

プログラムの非常に早い段階で、品質管理を行いたいのですが、十分なデータがない場合は、プログラムを終了して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

おそらく、ある時点で長いスクリプトの実行を停止したいだけです。すなわち。CまたはPythonでexit（）をハードコーディングしたいように。

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ます。

「tools」パッケージのpskill関数を使用してR、現在のプロセスを中断し、コンソールに戻ることができます。具体的には、各スクリプトの冒頭で入手したスタートアップファイルに次の関数を定義しています。ただし、コードの先頭で直接コピーすることもできます。次に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コマンドプロンプトからスクリプトを取得している場合は、Rquit()も終了します。