如何循環這段代碼？

Question

我和我的合作伙伴有這段代碼，我們在R中提取推文並將其放入數據庫中，我們想知道的是如何循環這段代碼，以便它週期性地循環。最好每30分鐘一班。

這裏是我們的代碼：

#Load twitter package for R 
library(twitteR) 
#load MySQL package for R 
library(RMySQL) 
#Load authentication files for twitter 
load(file="twitter_authentication.Rdata") 
registerTwitterOAuth(cred) 

#Search twitter for tweets e.g. #efteling 
efteling <- searchTwitter("@efteling", n=100) 

#Store the tweets into a dataframe 
dataFrameEfteling <- do.call("rbind", lapply(efteling, as.data.frame)) 

#Setup up the connection to the database() 
doConnect <- dbConnect(MySQL(), user="root", password="", dbname="portfolio", host="127.0.0.1") 
dbWriteTable(doConnect, "tweetsEfteling", dataFrameEfteling) 

eftelingResult <- dbSendQuery(doConnect, "select text from tweetsEfteling") 
showResultEfteling <- fetch(eftelingResult, n=20) 

Answer 1

你有訪問的crontab？如果是這樣，您可以將其設置爲經常運行腳本，但頻繁您喜歡。

這是關於crontab的一些信息。
如果你的服務器運行的是Linux操作系統，你可以只輸入

crontab -e 

拉起你的個人crontab文件。之後，你安排你的命令。 每30分鐘，您將使用此命令。

*/30 * * * * /path/to/script 

保存並退出。

Answer 2

您是否考慮過使用Twitter的Stream API與REST？如果您長時間斷開連接，這可能會完成同樣的事情。另外它會減少API拉。試試streamR包。

如果你仍然想在一個定時器上設置它，http://statistics.ats.ucla.edu/stat/r/faq/timing_code.htm看起來很有用。