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

Question

我正在使用RPushbullet软件包从R向多个设备（智能手机）发送推送通知。这非常合适。

现在：在每个新的推送消息之前，我想删除之前的推送。我想通过访问Pushsbullet的API来做到这一点。可以找到相应的Pushbullet文档here（在左侧导航栏中转到＆＃34;推送＆＃34; - ＆gt;＆＃34;删除 - 推送＆＃34;）但是我也要发帖它在下面：

我尝试使用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')))

但是我总是得到一个回复​​，例如＆＃34;访问令牌丢失或无效＆＃34;，例如：

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表示＆＃34;未授权＆＃34;，即我无法将访问令牌传递给表单。

非常感谢有关如何在R中访问此Pushbullet API的任何帮助。

修改

OS： Windows 10 Home，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

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

Answer 2

您在代码中使用“授权”，但API需要“访问令牌”。