4

我最近一直在用 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)
      }

但是，当我尝试发布 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？我不确定如何访问字段并将其分配给向量以对数据进行评分。

提前致谢

4

1 回答 1

0

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

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 的值列表作为查询输入，因此数组数据应事先进行 json 化。如果您想完全避免额外的包导入， some 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)
于 2021-02-09T13:51:39.023 回答