我一直试图在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")