0

我正在使用 httr 库中的 POST 函数来获取一些数据，代码如下所示。

library(httr)

url = "https://xxxx:xxx@api.xxx/_search" #omitted for privacy
a = POST(url,body = query,encode = "json")

该查询如下面的附录所示。a$content给了我一大堆十六进制数字，我必须使用另一个函数才能获得一些有用的数据。

最终我希望通过使用b = fromJSON(a$content). 到目前为止，为了获得我必须使用的任何数据：

chr<-function(n){rawToChar(as.raw(n))}
b = jsonlite::fromJSON(chr(a$content))
data = b$hits$hits$`_source`

考虑到我通过本地函数解析数据以获取最终数据，这似乎效率低下。所以我的问题如下：

  1. 我是否正确使用 POST 函数来获取查询？
  2. 有没有更有效（更快）的方式将我的数据放入数据框中？

附录：

query = '
{
  "_source": [
    "start","source.country_codes",
    "dest.country_codes"
    ],
    "size": 100,
    "query": {
    "bool": {
    "must": [
    {
    "bool": {
    "must_not": [
    {
    "range": {
    "start": {
    "lte": "2013-01-01T00:00:00"
    }
    }
    },
    {
    "range": {
    "start": {
    "gt": "2016-05-19T00:00:00"
    }
    }
    }
    ]
    }
    }
    ]
    }
  }
}'
4

1 回答 1

3

  1. POST 功能看起来不错。

  2. js<-fromJSON(content(a,as="text"))

于 2016-07-23T14:54:14.697 回答