R Plumber如何生成符合要求的嵌套JSON接口返回结果

原实现通过给data.frame添加list列再转列表的方式可正常运行，但存在可读性低、易出现隐式错误的问题，以下是几个更优的实现方向：

方案1：直接构造目标结构列表（最推荐） #

完全避免冗余的data.frame类型转换逻辑，直接按照目标JSON的结构构造R列表，代码可读性最高，调试和修改成本最低：

library(plumber)
library(jsonlite)

#* @get /nested_json
#* @serializer unboxedJSON list(na = "null")
function() {
  # 结构与最终返回的JSON一一对应
  final_output <- list(
    Name = "John",
    Address = "Stret No. 1",
    Point = "600",
    # R的data.frame默认会序列化为JSON对象数组，刚好匹配需求
    reason = data.frame(
      code = c('AAA', 'BBB', 'CCC', NA, 'EEE'),
      description = c('low value of point A', 'low value of point B', 'low value of point C', NA, 'low value of point D')
    )
  )
  
  return(final_output)
}

优势：

• 无冗余转换步骤，代码量少逻辑清晰
• 避免了操作data.frame list列时容易出现的索引错误
• 后续修改返回字段结构时可以直接对应调整，无需额外适配

方案2：兼容已有数据处理逻辑的优化写法 #

如果实际业务中main_info和reason_info都是从数据库/文件读取的已存在的data.frame，可以优化原有赋值逻辑，去掉反直觉的索引操作：

library(plumber)
library(jsonlite)

#* @get /nested_json
#* @serializer unboxedJSON list(na = "null")
function() {
  main_info <- data.frame(
    Name = "John",
    Address = "Stret No. 1",
    Point = "600"
  )
  
  reason_info <- data.frame(
    code = c('AAA', 'BBB', 'CCC', NA, 'EEE'),
    description = c('low value of point A', 'low value of point B', 'low value of point C', NA, 'low value of point D')
  )
  
  # 直接给转换后的列表添加reason字段即可，无需先塞进data.frame再转换
  final_output <- as.list(main_info)
  final_output$reason <- reason_info
  
  return(final_output)
}

额外通用优化建议 #

• 修正原代码中reason_info的列名拼写错误：descriptiom缺少字母n，正确为description，避免和前端约定的字段名不一致
• 给unboxedJSON序列化器显式指定na = "null"参数，声明R的NA值统一转换为JSON的null，避免不同环境下默认配置不同导致返回格式异常
• 若返回结构复杂，可提前定义结构校验逻辑，比如用jsonlite::validate校验生成的JSON是否符合预期schema，避免接口返回异常结构

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