Как отправить твиты в R?

Question

Возможно дубликатом вопрос с Using R to send tweets но несчастливо это дает только ответы о том, как использовать OAuth для R.

Я установил 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) 
)