如何使用户定义的函数在中断时返回值？

Question

假设我具有以下功能：

f <- function(x, y, beta) {
  n <- length(y)
  b_values <- rep(0, n)
  b_values[1] <- beta
  for (i in i:n) {
    b_values[i] <- b_values[i + 1] - 0.5 * g(x, y)
  }
  return(b_values)
}

这类似于随机梯度下降，我尝试使用前一个来更新参数值。

有时代码需要花费很长时间才能运行，当我在R-studio中按esc中断代码时，不会返回任何内容。我要实现的是，如果用户终止该功能，则使我的功能返回它已经拥有的功能。有没有办法做到这一点？预先感谢。