Question

在RStudio中执行代码块时，执行实际上并不会在发生错误时停止。例如，如果我在开放编辑器中有以下代码：

x <- 'test'
stopifnot(is.numeric(x))
print('hello world')

然后运行它（使用命令返回或单击“运行”按钮），它会打印错误，然后继续前进并执行print语句。

有没有办法配置RStudio不会超过错误？即使它停在上面的第2行并且不进入打印声明？

编辑：刚才意识到如果我使用command-R在标准R GUI中发送代码块，也会发生这种情况。

Answer 1

当您选择一个部分并按Ctrl + Enter时，我认为没有办法阻止RStudio运行所有行。 Rstudio只是一个接一个地运行。即使在函数内部调用stopifnot()，该函数调用之后的所有行仍将被评估。

如果你的目标只是在出现问题时被告知，那么在很多代码运行失败之前，也许你可以定义一个类似于stopifnot()的函数，它将进入一个无限循环，如果有的话是一个错误。然后，您可以按Esc或RStudio中的停止按钮来中断程序。像这样：

waitifnot <- function(cond) {
  if (!cond) {
    message(deparse(substitute(cond)), " is not TRUE")  
    while (TRUE) {}
  }
}

现在，您可以使用此函数运行示例代码：

x <- 'test'
waitifnot(is.numeric(x))
print('hello world')

正如预期的那样，永远不会打印hello world。您将收到一条错误消息，告诉您出现了问题，然后程序将一直等到您手动中止它。

除了交互模式之外，这在任何情况下都不会有效。为了避免不愉快的情况，如果没有在交互模式下使用，你也可以让函数做出不同的反应，例如：

waitifnot <- function(cond) {
  if (!cond) {
    msg <- paste(deparse(substitute(cond)), "is not TRUE")
    if (interactive()) {
      message(msg)
      while (TRUE) {}
    } else {
      stop(msg)
    }
  }
}

只有在交互模式下运行时，此功能才会进入无限循环。否则，它将通过调用stop()来中止执行。我已经通过Ctrl + Enter或RStudio（无限循环）中的Source按钮以及Bash命令行上的Rscript检查了这是否正常工作（程序的中止）。

Answer 2

如@lmo所述，您只需要点击按钮Source而不是全部选择+ Run。实际上，您甚至不需要保存脚本文件就可以点击Source按钮。

但是问题确实在于Source将始终运行整个脚本。因此，如果您真的只想在脚本中运行一个块，这将无济于事。

Answer 3

解决此问题的一种方法是配置 R 'error' 选项以在遇到错误时运行自定义函数。

一个示例错误处理函数可以使用 Sys.sleep 暂停 R 的执行并等待用户输入（例如，通过按 ctrl-C 来中断正在运行的函数，或在我的 Mac 上的 R-Studio 中退出).

通常，R 将继续执行任何后续命令。但是，我们可以通过定义一个函数来防止这种情况发生，该函数将“吃掉”所有这些，这样它们就不会运行。为了使这个更流畅，我们可以在每个“吃掉”行之后输出一个“光标向上”字符序列，这会在下一个输出时擦除它们中的每一个，这样未运行的行就不会弄乱终端/控制台。

示例代码：

# Define our error-handling pause function:

pause=function(){
    on.exit(eat_input())
    cat("Paused: press ctrl-C (or Escape key in Rstudio) to continue\n")
    cat("(any subsequent code will be ignored)\n")
    Sys.sleep(Inf)
}

# Define our 'eat_input' function to prevent output of subsequent, not-run input:

eat_input=function(){
    cat("\033[1A")
    while((x=readline())!='')cat("\033[1A")
}

# Set the 'error' option to execute our pause function:

options(error=pause)

试试看：

print("Before the error")

# an error: we want to stop after this
xxx

# some more input: we don't want this to be run or to appear in the console
print("After the error")

要关闭此行为，只需将错误选项重新设置为 NULL：

options(error=NULL)

在RStudio / Interactive R会话中使执行停止

3 个答案: