json - 如何使用管道工 R 发送 json 响应

Question

我需要使用以下格式的管道工包从 R 发送响应

{
  "status": "SUCCESS",
  "code": "200",
  "output": {
    "studentid": "1001",
    "name": "Kevin"
  }
}

但我的格式低于格式

[
  "{\n  \"status\": \"SUCCESS\",\n  \"code\": \"200\",\n  \"output\": {\n    \"studentid\": \"1001\",\n    \"name\": \"Kevin\"\n  }\n}"
]

请帮我正确格式化这个json

我的代码

#* @post /sum
addTwo <- function(){
  library(jsonlite)
  x <- list(status = "SUCCESS", code = "200",output = list(studentid = "1001", name = "Kevin"))
  output<-toJSON(x,pretty = TRUE, auto_unbox = TRUE)
  return (output)
}

Answer 1

我添加了一个 unboxedJSON序列化程序到管道工的开发版本。根据将来读取的时间，该序列化程序可能已发布到 CRAN，现在甚至可能是默认序列化程序(我仍在争论中)。

但是现在，您可以从 GitHub ( devtools::install_github("trestletech/plumber") ) 安装开发版本，然后添加 @serializer unboxedJSON对您的函数进行注释，如下所示:

#* @post /sum
#* @serializer unboxedJSON
addTwo <- function(){
  list(status = "SUCCESS", code = "200",output = list(studentid = "1001", name = "Kevin"))

}

仅供引用，如果您确实想强制水管工返回您直接提供的一些文本，您应该能够设置 $body res 上的元素然后返回 res来自函数的对象。

#* @get /
function(res){
  res$body <- "I am raw"
  res
}

这将返回未格式化、未序列化的文本 I am raw在其回应中。