用R连接到Pocket

Question

我试图通过R连接到Pocket，我可以很容易地运行json格式的POST请求，如下所示：

网址：http://getpocket.com/v3/get

POST /v3/get HTTP/1.1  
Host: getpocket.com  
Content-Type: application/json  

{"consumer_key":"xxx-xxxxx",  
"access_token":"aaaaa-aaaaaaaaaaaa"}

在R中，我尝试在httr包中使用POST函数，但是我无法知道如何传递正确的参数：

library(rjson); library(httr)
the_url <- "https://getpocket.com/v3/get"
the_body <- toJSON(list(consumer_key = "xxx-xxxxx", access_token="aaaaa-aaaaaaaaaaaa"))
results <- POST(url=the_url, encode="json", body=the_body)

我总是得到"400坏请求“的状态。我知道这个例子是不可复制的，但是出于安全原因，我不愿意共享consumer_key和access_token。

Answer 1

你确定你的access_token是好的吗？如果是这样的话，我认为你只需要改变一下

url <- "https://getpocket.com/v3/get"
body <- list(consumer_key = "xxx-xxxxx", access_token="aaaaa-aaaaaaaaaaaa")
results <- POST(url, body = body)
content(results)