访问 Pushbullet API 以使用 R 删除推送

Question

我正在使用 RPushbullet 包从 R 向多个设备（智能手机）发送推送通知。这工作得很好。

现在：在每条新的推送消息之前，我想删除之前的推送。我想通过访问 Pushsbullet 的 API 来做到这一点。相应的 Pushbullet 文档可以在 here 中找到（在左侧的导航栏中转到 "Push" -> "delete-push"），但也让我 post 在下面：

我曾尝试使用 R 的 httr、RCurl 和 Curl 包中的任何一个来实现它，但我没有成功。例如，我尝试了以下代码的各种更改：

library(httr)
r <- GET("https://api.pushbullet.com/v2/pushes/{device_ID}", 
      add_headers('Access-Token: x.X1XxXxXx1xxxX1xxxxxxXX1XxXXxXx1x'))

或

library(RCurl)
library(RJSONIO)
postForm("https://api.pushbullet.com/v2/pushes/{device_ID}",
     .opts = list(httpheader = c(Authorization = 'x.X1XxXxXx1xxxX1xxxxxxXX1XxXXxXx1x', Accept = 'application/json')))

但我总是收到类似 "Access token is missing or invalid" 的回复，例如：

Response [https://api.pushbullet.com/v2/pushes/{device_ID}]
  Date: 2017-01-30 09:44
  Status: 401
  Content-Type: application/json; charset=utf-8
  Size: 176 B

状态代码 401 表示 "Unauthorized"，即我无法将访问令牌传递给表单。

任何有关如何在 R 中访问此 Pushbullet API 的帮助将不胜感激。

编辑：

OS: Windows 10 个家庭，64 位

卷曲命令： curl --header 'Access-Token: x.X1XxXxXx1xxxX1xxxxxxXX1XxXXxXx1x' https://api.pushbullet.com/v2/users/me

卷曲输出： curl: (6) Could not resolve host: x.X1XxXxXx1xxxX1xxxxxxXX1XxXXxXx1x' {"error":{"code":"invalid_access_token","type":"invalid_request","message":"Access token is missing or invalid.","cat":"(=^´¢Ñ¤ë´¢Ñ^)y´╝Ø"},"error_code":"invalid_access_token"}

Answer 1

您在代码中使用了 'Authorization'，但是 API 需要 'Access-Token'。

Answer 2

正如您在 Windows 上一样，请确保使用双引号而不是单引号（"..." 而不是 '...'）。同样在您的示例中，您提交了 {device_ID}，但是通过查看 API，您可能应该指定要删除的 push_ID。

访问 Pushbullet API 以使用 R 删除推送

Access Pushbullet API to delete pushes using R

api

r

rcurl

httr

pushbullet