我想每小时通过包“ gtrendsR”提取Google趋势数据,我试图使用Sys.sleep()函数设置计时器,但是,我每小时都无法下载它。因此,如何纠正我的代码以便每小时获取一次数据。另外,我想在excel文件中连续添加最新数据,而不是替换原始数据。非常感谢!
Sys.setlocale("LC_ALL", "English")
Keywords = c("google", "twitter")
for (k in Keywords) {
res = NULL
temp_1 <- gtrends(k, geo = "US",time = "all")
temp_2 <- temp_1$interest_over_time
res <- rbind(res, temp_2)
rm(temp_1,temp_2)
res <- select (res, c(date, hits))
Sys.setlocale(category = "LC_ALL", locale = "cht")
names(res)[2]<- k
xfilepath = paste("C:/Users/Peter/Desktop/",k,".csv",sep="")
write.csv(res, file = xfilepath, row.names=FALSE)
}