当R中有一个嵌套函数时，如何在R中以编程方式创建函数？

outer_func <- function(x) {
  # 外部函数体
}

outer_func <- function(x) {
  nested_func <- function(y) {
    # 嵌套函数体
  }
  # 外部函数体
}

outer_func <- function(x) {
  z <- 10
  nested_func <- function(y) {
    result <- x + y + z
    return(result)
  }
  # 外部函数体
}

outer_func <- function(x) {
  z <- 10
  nested_func <- function(y) {
    result <- x + y + z
    return(result)
  }
  return(nested_func)
}

my_func <- outer_func(5)
result <- my_func(3)
print(result)  # 输出 18