R语言基础实现：递归按名称提取值的函数循环异常排查

原函数的核心问题 #

• 递归调用时未接收返回值：进入子列表递归查找时，找到的结果没有赋值给out，导致上层函数无法获取递归找到的值。
• 未处理递归找到值后的终止逻辑：即使递归找到了目标值，上层循环仍会继续执行，且无法将结果传递回顶层。

修正后的函数 #

pick <- function(x, name) {
  out <- NULL  # 初始化为NULL，未找到时返回NULL更合理
  for (i in names(x)) {
    if (i == name) {
      return(x[[i]])  # 找到目标直接返回，终止后续循环
    } else if (is.list(x[[i]])) {
      out <- pick(x[[i]], name)
      if (!is.null(out)) {  # 递归找到值则立即返回，不再继续遍历
        return(out)
      }
    }
  }
  out  # 遍历完所有元素未找到，返回NULL
}

测试验证 #

test_list <- list(
  `1` = list(
    A = list(
      a = "a value",
      b = "b value"
    ),
    B = list(
      c = "c value"
    )
  )
)

# 提取存在的元素
pick(test_list, "a")
#> [1] "a value"

pick(test_list, "c")
#> [1] "c value"

# 提取不存在的元素
pick(test_list, "d")
#> NULL

关键修改说明 #

1. 初始out设为NULL，更贴合未找到目标时的返回逻辑。
2. 找到目标名称时直接return，立即终止函数，避免无效循环。
3. 递归调用后检查返回值，若找到目标则立即向上传递结果，终止后续遍历。

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