R语言如何仅退出嵌套子函数而不终止所有上层函数执行？

方法1：修改子函数，用return()直接退出子函数 #

这是最简便的实现方案，return()的作用就是终止当前函数的执行，将返回值传回调用它的上层函数，不会影响上层函数的后续运行。
修改后的代码示例：

test_check_wrap <- function(x) {
  test_check(x)
  print("everyone should see this")
}

test_check <- function(x) {
  if (x == "exit") {
    # 用return替代stop，直接退出当前子函数
    return(invisible(NULL))
  } else {
    print("hello!")
  }
  print("Only things that pass through will see this")
}

# 测试
test_check_wrap("continues")
#> [1] "hello!"
#> [1] "Only things that pass through will see this"
#> [1] "everyone should see this"
test_check_wrap("exit")
#> [1] "everyone should see this"

说明：invisible(NULL)是为了避免返回无意义的值打印到控制台，你也可以根据需求返回自定义的状态值，比如return(FALSE)来标识子函数触发了退出逻辑。

方法2：不修改子函数，在上层函数用tryCatch捕获子函数抛出的错误 #

如果你没办法修改test_check的原有代码（比如是其他包的内置函数），可以在调用子函数的时候用tryCatch捕获错误，阻断错误向上传播，上层函数就可以继续执行后续代码。
代码示例：

test_check_wrap <- function(x) {
  # 用tryCatch包裹子函数调用，捕获错误
  tryCatch({
    test_check(x)
  }, error = function(e) {
    # 这里可以自定义错误处理逻辑，比如打印错误信息
    message("子函数运行出错：", e$message)
  })
  print("everyone should see this")
}

# 原有test_check代码不变
test_check <- function(x) {
  if (x == "exit") {
    stop("specified to exit test check")
  } else {
    print("hello!")
  }
  print("Only things that pass through will see this")
}

# 测试
test_check_wrap("exit")
#> 子函数运行出错：specified to exit test check
#> [1] "everyone should see this"

补充说明 #

• 如果你需要在子函数退出时向上层传递不同的状态，可以给return()传入对应的返回值，上层函数可以根据返回值判断子函数的执行结果走不同的逻辑。
• 不要用stop()除非你确实需要主动抛出错误中断整个调用链的执行。

内容的提问来源于stack exchange，提问作者Mark Rieke