用R语言阅读和传输推文

时间:2017-10-03 06:33:40

标签: r csv twitter

我一直试图在Rstudio中使用R语言捕获推文。我使用csv文件作为关键字输入,其中包含代码中的关键字。但是,当它收集推文时,它会以其他语言或javascript格式显示推文。我尝试将单词转换为javascript格式,使用excel表作为输入,更改系统语言。多次更改代码并使用不同的方法,下载了不同版本的Rstudio。 这些都没有用,而且我被卡住了。我见过其他人使用Rstudio来捕获阿拉伯语的推文并且它有效。我们都使用相同的确切代码,所以我不明白出了什么问题。

library(ROAuth) 
library(RCurl)

requestURL = "https://api.twitter.com/oauth/request_token"
accessURL = "https://api.twitter.com/oauth/access_token"
authURL = "https://api.twitter.com/oauth/authorize"
consumer_key = "xxxxxxxxxxxxxxxx" # From dev.twitter.com
consumer_secret = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 

??ROAuth 
my_oauth = OAuthFactory$new(consumerKey = consumer_key,
                        consumerSecret = consumer_secret,
                        requestURL = requestURL,
                        accessURL = accessURL,
                        authURL = authURL)
my_oauth$handshake(curl=getCurlHandle())


save(my_oauth, file = "my_oauth.Rdata")
load("my_oauth.Rdata")

####################################

library(stringi)
dat <- read.csv("streets.csv", encoding = "UTF-8")
keyword = stri_trans_nfkc(dat)


####################################

library(streamR) 

filterStream(oauth=my_oauth, timeout = 120, track = keyword, file.name =    "tweetsSTA12-1.json") 

tweetsdf = parseTweets("tweetsSTA12-1.json", simplify = TRUE) 
View(tweetsdf)

library(xlsx) 
write.xlsx(tweetsdf , "tweetsTestSTA12-1.xlsx",sheetName = "tweets", row.names = FALSE)


write.csv(tweetsdf, "tweetsTestSTA12-1.csv")

0 个答案:

没有答案