中断/退出脚本

Question

我有一个程序可以进行一些数据分析，它有几百行长。

在程序的早期，我想做一些质量控制，如果没有足够的数据，我希望程序终止并返回 R 控制台。否则，我希望执行其余代码。

我尝试过break、browser 和quit，但它们都没有停止程序其余部分的执行（quit 停止执行并完全退出 R，这不是我想要发生的事情）。我最后的手段是创建一个if-else 声明如下：

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

但这似乎是不好的编码习惯。我错过了什么吗？

Answer 1

如果您希望程序产生错误，可以使用stopifnot() 函数：

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

Answer 2

也许您只是想在某个时候停止执行长脚本。 IE。就像你想用 C 或 Python 硬编码一个 exit() 一样。

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

Answer 3

已编辑。感谢@Droplet，他找到了一种无需.Internal() 即可完成这项工作的方法：这是在R 中实现exit() 命令的一种方法。

exit <- function() { invokeRestart("abort") }    

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

只进行了轻微测试，但是当我运行它时，我看到 this is the last message 然后脚本中止，没有任何错误消息。

以下是我原始答案中更丑的版本。

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

Answer 4

反转你的 if-else 结构：

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

Answer 5

编辑： 似乎 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

Answer 6

这是一个老问题，但还没有一个干净的解决方案。这可能没有回答这个特定问题，但那些寻找“如何优雅地退出 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。

Answer 7

这里：

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

quit() 和 stop(message) 都将退出您的脚本。如果您从 R 命令提示符获取脚本，那么 quit() 也会从 R 中退出。

Answer 8

我遇到了类似的问题：退出当前函数，但不想完成其余代码。 最后我通过一个只运行一次的 for() 循环解决了这个问题。在 for 循环中，您可以设置几个不同的条件来退出当前循环（函数）。

  for (i in T) {
    print('hello')
    if (leave.condition) next
    print('good bye')
  }

Answer 9

您可以使用R“工具”包中的pskill函数来中断当前进程并返回控制台。具体来说，我在每个脚本开头的启动文件中定义了以下函数。但是，您也可以直接在代码开头复制它。然后在代码中的任意位置插入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)
}