如何在 R 中发送推文？

Question

可能是与 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 表单并发送推文？

谢谢，

Answer 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)
)

如何在 R 中发送推文？

How to send tweets in R?

twitter

r

oauth

rcurl

twitter-oauth