从r中的嵌套列表中提取变量

# 示例嵌套列表
nested_list <- list(
  a = 1,
  b = list(
    c = 2,
    d = list(
      e = 3
    )
  )
)

# 提取变量 e
variable_e <- nested_list$b$d$e
print(variable_e)  # 输出: 3

# 递归函数提取变量
extract_variable <- function(lst, var_name) {
  for (name in names(lst)) {
    if (name == var_name) {
      return(lst[[name]])
    } else if (is.list(lst[[name]])) {
      result <- extract_variable(lst[[name]], var_name)
      if (!is.null(result)) {
        return(result)
      }
    }
  }
  return(NULL)
}

# 提取变量 e
variable_e <- extract_variable(nested_list, "e")
print(variable_e)  # 输出: 3

# 检查数据类型
class(variable_e)  # 输出: "numeric"