我正在使用twitteR软件包(以及所有需要的软件包),这些都是“Lynas Malaysia”twitter情绪分析的最新版本。
source code如下:
library(twitteR)
library(plotrix)
dontshowtweet <- 0
showtweetyesterday <- searchTwitter("lynas", n=1000,
date=as.character(Sys.Date()-7))
sources <- sapply(showtweetyesterday, function(x) x$getScreenName())
sources <- gsub("</a>", "", sources)
sources <- strsplit(sources, ">")
sources <- sapply(sources, function(x) ifelse(length(x) > 1, x[2], x[1]))
pie(table(sources),
main = "Who is tweeting about me")
length(showtweetyesterday)
df <- twListToDF(showtweetyesterday)
df[1:1000,c(10,4)] #screen name & created date
length(showtweetyesterday)
我仍然遇到由RCurl引起的错误。通过使用警告(),我得到了:
In mapCurlOptNames(names(.els), asNames = TRUE) :
Unrecognized CURL options: date
如何解决此错误?
感谢。
答案 0 :(得分:1)
根据手册,searchTwitter
函数没有date
参数:您可能需要since
。