如何使用R中全局环境中定义的函数访问函数环境中的元素

my_function <- function() {
  local_env <- local({
    # 在这里定义局部环境中的变量和函数
    x <- 10
    y <- 20
    
    inner_function <- function() {
      # 在这里可以访问局部环境中的变量和函数
      result <- x + y
      return(result)
    }
    
    # 返回局部环境
    environment()
  })
  
  # 调用内部函数
  result <- my_function()
  print(result)
}

# 在全局环境中定义变量和函数
x <- 5
y <- 15

# 在全局环境中定义函数
global_function <- function() {
  # 获取函数对象
  func <- get("inner_function", envir = my_function)
  
  # 获取函数环境
  env <- environment(func)
  
  # 在函数环境中访问变量和函数
  result <- eval(expr = func(), envir = env)
  print(result)
}

# 调用全局函数
global_function()