多次尝试表达式,直到在R中成功

(1) 我们可以把它变成一个函数 x 如果它找到一个或停止,如果没有。我们还使用 for 而不是 while 和 if 而不是 ifelse 。

retry <- function() {
  for(i in 1:100) {
    rand <- runif(1)
    x <- if (rand > 0.3) rand else NA
    if (!is.na(x)) return(x)
  }
  stop("x is NA")
}

retry()

(2) 或者,如果您不想在函数中停止,则删除 stop 行将其替换为返回x的行,然后使用该行(尽管它确实涉及两次测试x的NA):

x <- retry()
if (is.na(x)) stop("x is NA")

(3) 或者另一个选项是将错误值传递给函数。由于懒惰的评估 bad 仅当参数实际上不正确时才对其进行计算:

retry2 <- function(bad) {
  for(i in 1:100) {
    rand <- runif(1)
    x <- if (rand > 0.3) rand else NA
    if (!is.na(x)) return(x)
  }
  bad
}

retry2(stop("x is NA"))

(4) 如果您不介意使用 break 即使没有功能也可以工作:

for(i in 1:100) {
  rand <- runif(1)
  x <- if (rand > 0.3) rand else NA
  if (!is.na(x)) break
}
if (is.na(x)) stop("x is NA")
x