[問題類型]:
程式諮詢(我想用R 做某件事情,但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
入門(寫過其他程式,只是對語法不熟悉)
[問題敘述]:
讓R每5分鐘執行一次資料下載
[程式範例]:
library(jsonlite)
library(RCurl)
library(httr)
while (TRUE) {
if (format(Sys.time(), "%S") == "01") return("Downloading") else
Sys.sleep(300)
Dataurl<-url("https://airbox.edimaxcloud.com/devices?token=EA81A1FA-8EDB-4CA0-
B07B-A881C74B0401")
DATA<-fromJSON(Dataurl)
Table<-data.frame(DATA)
date <- sprintf("%s_minutes.csv", format(Sys.time(),"%Y%m%d%H%M%S"))
outfile = paste("D:\\", date, sep = "")
write.csv(Table, file = outfile)
}
# 以上code已可成功執行並output,只是 return("Downloading") 沒什麼供用
# http://i.imgur.com/mdIdBY1.jpg 結果如連結圖片
[環境敘述]:
R-Studio
[關鍵字]:
選擇性,也許未來有用
Sys.time sys.sleep time loop