如何在R中定期获取Google趋势数据

Question

我想每小时通过包“ 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)

}