如何在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) 
)