可能是与 Using R to send tweets 重复的问题但不幸的是,它只提供了如何将 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"
现在我已经通过身份验证,如何使用 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)
)
关于r - 如何在 R 中发送推文?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36837017/