中止在 R(-Studio) 中执行代码

Question

我使用 RStudio 在 R 中编写代码。通常我通过选择它并按下 Ctrl + Enter 来提交更大的代码块。现在，当发生错误时（例如无法建立与数据库的连接），我想中止执行后续代码。

我试过stop()，当所有代码都在一行时，它可以工作：

# 21 is not shown
42; stop("error"); 21;

但是当代码跨越多行时，代码仍然会被计算：

# Here 21 is shown
42
stop("error")
21

在提交较大的代码块时是否有中止代码执行的方法？

Answer 1

您可以将代码包裹在{}（大括号）之间，因为它们几乎等同于您的; 链。

{
  42
  stop("error")
  21
}
## Error: error

这是来自文档的一个很好的插图，带有类似界面的功能。

do <- get("{")
do(x <- 3, y <- 2*x-3, 6-x-y)
## [1] 0
x <- 3; y <- 2*x-3; 6-x-y
## [1] 0

Answer 2

@DavidArenburg 的回答无疑是最直接的方法。但是，从您的问题中不清楚您是否想保留在运行时打印每个语句的值的行为，这是在 RStudio 中使用 Ctrl-Enter 时通常发生的情况。如果您确实想这样做，那么您的选择是：

1. 将要输出的每个语句包装在print 中

例如

{
  print(42)
  stop("error")
  print(21)
}

#[1] 42
# Error: error

1. 使用自定义函数来实现：

例如

block <- function(expr) {
  expr <- substitute(expr)
  for (i in seq(expr)[-1]) {
    y <- withVisible(eval(expr[[i]], parent.frame()))
    if (y$visible && i != length(expr)) print(y$value)
  }
  y$value
}

block({
  42
  stop("error")
  21
})

#[1] 42
# Error in eval(expr, envir, enclos) : error

请注意，在所有情况下，在您完成块之前，您的任何语句都不会真正执行。

对于重要的代码块，与标准执行相比，执行速度的差异可以忽略不计。

例如

microbenchmark::microbenchmark(block = block({
  a <- 1:1e6
  b <- rnorm(1e6)
  sum(a + b)
}), curly = {
  a <- 1:1e6
  b <- rnorm(1e6)
  sum(a + b)
})

#Unit: milliseconds
#  expr      min       lq     mean   median       uq      max neval
# block 108.7961 130.2517 169.4891 176.8425 197.4749 299.4014   100
# curly 109.9183 134.3076 171.9430 174.7121 194.5748 292.5958   100