如何在R中发送推文？

Question

可能与Using R to send tweets重复的问题，但不幸的是它提供

我从杰夫·金特里安装TwitteR包如何使用OAuth为R.

唯一的答案，我可以使用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) 
)