如何在 R 中发送推文？答案

【问题标题】：How to send tweets in R?如何在 R 中发送推文？
【发布时间】：2016-08-18 15:13:15
【问题描述】：

可能是与Using R to send tweets 重复的问题，但不幸的是，它只提供了有关如何使用 OAuth for R 的答案。

我已经安装了来自 Jeff Gentry 的 TwitteR 包，并且我能够使用 Oauth 对自己进行身份验证，但是从我在文档中看到的功能可以操作 Twitter 直接消息（dmSend 和 dmGet）但我找不到任何可以发送推文的内容。

  > consumer_key <- "xxx"
  > consumer_secret <- "zzz"
  > access_token <- "aaa"
  > access_secret <- "bbb"
  > setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)
  [1] "Using direct authentication"

现在我已通过身份验证，如何使用RCurl 提交有效的 HTML 表单并发送推文？

谢谢，

【问题讨论】：

标签： r twitter oauth twitter-oauth rcurl

【解决方案1】：

在twitteR 包中：

updateStatus("Tweet goes here.")

替代httr方式：

# assign keys and secrets
api_key <- "a"
api_secret <- "b"
access_token <- "c"
access_token_secret <- "d"

# authenticate with httr
oauth_endpoints("twitter")
myapp <- oauth_app("twitter", key = api_key, secret = api_secret)
twitter_token <- oauth1.0_token(oauth_endpoints("twitter"), myapp)

tweet <- "Tweet goes here."
tweet <- gsub(" ","%20", tweet)

httr::POST(
  url = paste0("https://api.twitter.com/1.1/statuses/update.json?status=", tweet, "&display_coordinates=false"),
  config(token = twitter_token)
)

【讨论】：

推文状态正是我想要的，谢谢