在R中满足条件时停止子函数(而不终止父函数)

stop_child_function <- function() {
  for (i in 1:10) {
    if (i == 5) {
      message("满足条件时停止子函数")
      return()  # 停止子函数的执行
    }
    message("子函数执行中，当前值为", i)
  }
}

parent_function <- function() {
  message("父函数开始执行")
  stop_child_function()
  message("父函数继续执行")
}

parent_function()

父函数开始执行
子函数执行中，当前值为1
子函数执行中，当前值为2
子函数执行中，当前值为3
子函数执行中，当前值为4
满足条件时停止子函数
父函数继续执行