中断/退出脚本

我有一个程序，可以进行一些数据分析，并且有数百行。

在程序的早期，我想进行一些质量控制，如果没有足够的数据，我希望程序终止并返回到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。

您可以使用“工具”包中的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命令提示符处采购脚本的，则该脚本quit()也会从R退出。