如何在R中发送推文？

可能是一个重复的问题，但不幸的是，它只提供了关于如何将OAuth用于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"

>消费者密钥消费者密钥访问令牌访问密钥设置twitter oauth（消费者密钥、消费者密钥、访问令牌、访问密钥）
[1] “使用直接身份验证”

现在我已经进行了身份验证，如何使用

RCurl

提交有效的HTML表单并发送推文

---

谢谢，

在

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

#分配密钥和机密
api_key Tweet状态就是我想要的，谢谢