使用R和rjson库获取json对象

我的目标是实现水管工HTTP包的响应

library(rjson)

formatResponse = function(matchId, home, draw, away) {
  return(toJSON(???))
}

formatResponse('myId', 10, 20, 70);

我的目标是：

    {
      matchId: 'myId',
      probabilities: {
        home: 10,
        draw: 20,
        away: 70
      }
    }

---

直截了当的方法：创建一个列表并将该列表转换为json对象（不是最漂亮的解决方案，但很有效）：

formatResponse=函数（matchId、home、draw、away）{
图书馆（rjson）
foo直截了当的方法：创建一个列表并将该列表转换为json对象（不是最漂亮的解决方案，但很有效）：

formatResponse=函数（matchId、home、draw、away）{
图书馆（rjson）
福
formatResponse = function(matchId, home, draw, away) {
    library(rjson)
    foo <- list(matchId = matchId, 
                propabilities = list(home = home, 
                                     draw = draw, 
                                     away = away))
    toJSON(foo)
}
formatResponse("myId", 10, 20, 70)

[1] "{\"matchId\":\"myId\",\"propabilities\":{\"home\":10,\"draw\":20,\"away\":70}}"