Question

我想编译一个数据集，其中包含来自Twitter的推文，持续数周。

为此，我必须保存每一天的推文并将它们保存到csv文件中（然后将它们组合到一个文件中）。我计划每天运行脚本并保存昨天的推文。

我使用twitteR，在验证过程之后，我有以下代码：

# today is 2015-01-14
searchResults <- searchTwitter("#goodbyenukes", n=1500, since='2015-01-13', until='2015-01-13')

# save results in dataframe and csv
tweetsDf = ldply(searchResults, function(t) t$toDataFrame())
write.csv(tweetsDf, file="2015-01-13.csv")

我不想每天修改脚本，以便得到昨天的推文。通过使用Sys.Date（）我可以告诉R使用今天的日期。但有没有办法告诉我们使用昨天的日期，以便我不必每天都更改脚本？

Answer 1

我想你可以使用Sys.Date（） - 1。了解更多信息：http://stat.ethz.ch/R-manual/R-devel/library/base/html/Ops.Date.html

尝试as.character将其转换为字符串，例如： searchResults＆lt; - searchTwitter（“＃goodbyenukes”，n = 1500，since = as.character（Sys.Date（） - 1），until = as.character（Sys.Date（） - 1））

搜索昨天的推文

1 个答案: