R语言：如何拆解嵌套列表特定层级生成无多余括号的整洁JSON？

问题背景 #

从CSV生成大型嵌套列表后，用jsonlite::toJSON(updated_nested_lists, pretty=TRUE, auto_unbox = TRUE)转JSON时，特定子列表（比如orders）会被包裹在多余的数组括号[]里，用unlist处理又会破坏内层数据结构，需要在保留内层结构的前提下拆解指定层级的数组。

最小可复现示例 #

先构造一个和场景匹配的嵌套列表：

updated_nested_lists <- list(
  user = list(
    id = 123,
    name = "Alice",
    orders = list(
      list(
        order_id = 456,
        items = list(
          list(product = "Laptop", quantity = 1),
          list(product = "Mouse", quantity = 2)
        )
      )
    )
  )
)

当前转换后的JSON会出现多余的[]：

{
  "user": {
    "id": 123,
    "name": "Alice",
    "orders": [
      {
        "order_id": 456,
        "items": [
          {
            "product": "Laptop",
            "quantity": 1
          },
          {
            "product": "Mouse",
            "quantity": 2
          }
        ]
      }
    ]
  }
}

我们需要的是orders直接为对象而非数组。

解决方案 #

方案1：手动指定层级拆解（适合已知固定层级） #

如果你明确知道多余数组所在的层级，直接提取该列表的第一个元素即可，完全不影响内层结构：

# 定位到orders层级，提取第一个元素去掉数组包裹
updated_nested_lists$user$orders <- updated_nested_lists$user$orders[[1]]

# 重新转换为JSON
jsonlite::toJSON(updated_nested_lists, pretty = TRUE, auto_unbox = TRUE)

转换后得到预期结果：

{
  "user": {
    "id": 123,
    "name": "Alice",
    "orders": {
      "order_id": 456,
      "items": [
        {
          "product": "Laptop",
          "quantity": 1
        },
        {
          "product": "Mouse",
          "quantity": 2
        }
      ]
    }
  }
}

方案2：递归批量处理（适合大型嵌套列表） #

如果有多个相同层级需要处理，写个递归函数自动定位并拆解长度为1的列表：

unbox_target_level <- function(x, target_path) {
  if (is.list(x) && length(x) > 0) {
    # 遍历当前层级的每个元素
    x <- lapply(names(x), function(node_name) {
      current_path <- c(target_path[[1]], node_name)
      # 匹配目标路径且子列表长度为1时，提取第一个元素
      if (identical(current_path, target_path) && length(x[[node_name]]) == 1) {
        x[[node_name]][[1]]
      } else {
        # 递归处理子层级
        unbox_target_level(x[[node_name]], c(target_path, node_name))
      }
    })
    names(x) <- names(original_list)
  }
  x
}

# 传入原始列表和目标层级路径（比如c("user", "orders")）
original_list <- updated_nested_lists
processed_list <- unbox_target_level(original_list, c("user", "orders"))

# 转换为JSON
jsonlite::toJSON(processed_list, pretty = TRUE, auto_unbox = TRUE)

关键说明 #

• 两种方案都只针对指定层级拆解，不会影响内层的items等需要保留数组结构的部分。
• 方案1操作简单直接，适合层级固定的场景；方案2适合大型复杂嵌套列表，批量处理更高效。

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