Question

我最近在R中尝试过Plumber，并且在使用POST请求传递以下数据时取得了成功;

{"Gender": "F", "State": "AZ"}

这允许我编写如下函数来返回数据。

#* @post /score
    score <- function(Gender, State){
      data <- list(
        Gender = as.factor(Gender)
        , State = as.factor(State))

      return(data)
      }

然而，当我尝试POST一组JSON对象时，我似乎无法通过函数访问数据

[{"Gender":"F","State":"AZ"},{"Gender":"F","State":"NY"},{"Gender":"M","State":"DC"}]

我收到以下错误

{
    "error": [
        "500 - Internal server error"
    ],
    "message": [
        "Error in is.factor(x): argument \"Gender\" is missing, with no default\n"
    ]
}

有没有人知道Plumber如何解析JSON？我不确定如何访问并将字段分配给矢量以对数据进行评分。

提前致谢

Answer 1

我在这里看到了两种可能的解决方案。第一个是基于命令行的方法，我假设您正在尝试。我在 Windows 操作系统上对此进行了测试，并使用了基于列的 data.frame 编码，由于 JSON 字符串长度较短，我更喜欢这种编码。确保正确转义引号以避免“参数“...”丢失，没有默认错误：

curl -H "Content-Type: application/json" --data "{\"Gender\":[\"F\",\"F\",\"M\"],\"State\":[\"AZ\",\"NY\",\"DC\"]}" http://localhost:8000/score
# [["F","F","M"],["AZ","NY","DC"]]

第二种方法是 R 原生的，具有将所有内容集中在一个地方的优势：

library(jsonlite)
library(httr)

## sample data
lst = list(
  Gender = c("F", "F", "M")
  , State = c("AZ", "NY", "DC")
)

## jsonify
jsn = lapply(
  lst
  , toJSON
)

## query
request = POST(
  url = "http://localhost:8000/score?"
  , query = jsn # values must be length 1
)

response = content(
  request
  , as = "text"
  , encoding = "UTF-8"
)

fromJSON(
  response
)
#      [,1]                    
# [1,] "[\"F\",\"F\",\"M\"]"   
# [2,] "[\"AZ\",\"NY\",\"DC\"]"

请注意，httr::POST() 需要一个长度为 1 的值列表作为查询输入，因此应事先对数组数据进行 jsonified。如果您想完全避免额外的包导入，一些 system()、sprintf() 等魔术应该可以解决问题。

最后，这是我的管道工端点（住在 R/plumber.R 并稍微浓缩）：

#* @post /score
score = function(Gender, State){
  lapply(
    list(Gender, State)
    , as.factor
  )
}

和启动 API 的代码：

pr = plumber::plumb("R/plumber.R")
pr$run(port = 8000)

如何使用R中的Plumber消耗一组JSON对象

1 个答案: