使用Oauth和HTTR，R将Twitter更新到Twitter

Question

我正在尝试使用api将更新发布到Twitter。 按照https://github.com/hadley/httr/blob/master/demo/oauth1-twitter.r上的步骤进行操作，我可以使GET调用正常工作，但仍无法使POST正常工作。 以下是相关代码：

library(httr)
library(httpuv)


oauth_endpoints("twitter")

myapp <- oauth_app("twitter", 
key = "key"
secret = "secret" 
) 

twitter_token <- oauth1.0_token(oauth_endpoints("twitter"), myapp)


#this works fine
req <- GET("https://api.twitter.com/1.1/statuses/home_timeline.json", 
config(token = twitter_token)) 



#this doesn't work.  Returns error 403: status is forbidden
POST(url = "https://api.twitter.com/1.1/statuses/update.json",
     body = "test", 
     config(token = twitter_token)
     )

任何允许从R更新状态（Tweet）的解决方案都是可以接受的。

Answer 1

文档说，您需要将参数status作为查询参数传递，而不是在正文中传递，这很有意义，因为它总是只能有140个字符长。

POST("https://api.twitter.com/1.1/statuses/update.json",
     query = list(status = "testing from R"),
     config(token = twitter_token)
)