R语言：如何重构任意嵌套列表，提取指定结构的规则元素

以下两种方案都支持任意嵌套层级、任意rules节点数量的场景，只要目标节点同时包含id和field字段即可正确提取。

方案1：基础R递归实现（无第三方依赖） #

手动实现递归逻辑遍历整个嵌套列表，逐层筛选符合要求的节点：

# 自定义递归提取函数
extract_rules <- function(input_list) {
  result <- list()
  for (item in input_list) {
    # 判断当前节点是否为目标节点
    if (all(c("id", "field") %in% names(item))) {
      result <- c(result, list(item))
    } else if ("rules" %in% names(item)) {
      # 存在rules子节点，递归处理rules内的内容
      result <- c(result, extract_rules(item$rules))
    }
  }
  return(result)
}

# 调用函数测试
output <- extract_rules(l)

# 验证结果和目标是否一致
identical(output, goal)
# 运行返回：TRUE

特点：不需要安装任何扩展包，逻辑简单易调整，可灵活修改筛选条件适配其他节点规则。

方案2：rrapply包实现（代码更简洁） #

借助专门处理嵌套列表的rrapply包，无需手动编写递归逻辑，直接按条件筛选节点：

# 首次使用先安装包
# install.packages("rrapply")
library(rrapply)

output <- rrapply(
  l,
  # 筛选条件：节点同时包含id和field字段
  condition = function(x) all(c("id", "field") %in% names(x)),
  # 扁平化输出为一维列表
  how = "flatten"
)

# 验证结果
identical(output, goal)
# 运行返回：TRUE

特点：代码精简，处理深层嵌套列表的性能优于手动实现的递归函数，适合处理结构复杂的大型嵌套列表。

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