: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
:
: [問題敘述]:
:
: 讓R每5分鐘執行一次資料下載
想讓儲存的檔案名稱變成數字，如第一筆檔案為 1.xlsx，第二筆為 2.xlsx，
但一直噴錯出來。
另外，如果用上篇的code，好像常常跑10小時就停了，沒有跳出紅字。
: [程式範例]:
:
cat(rep("\n",64))
library(jsonlite)
library(RCurl)
library(httr)
library(xlsx)
for (i in 1:(60*24*5/5)){ #創建 i 等於數字
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)
Sites<-c("74DA38C7D1C2","74DA38C7D0B0","74DA38C7D1C4","74DA38C7D1CA",
"74DA38C7D0A2","74DA38C7D0A0","74DA38C7D09C","74DA38C7D09E",
"74DA38C7D0AE","74DA38C7D1D2","74DA38AF4860","74DA38AF47F8",
"G0000000000E")
Table <- subset(Table, devices.id %in% Sites)
datenum <- i
toString(datenum) # 將 i 命名為datenum再改為字串
outfile = paste("D:\\", datenum, sep = "")
write.xlsx(Table, file = outfile)
}
}
:
: [環境敘述]:
:
: R-Studio
:
: [關鍵字]:
:
:
: 選擇性，也許未來有用
:
: Sys.time sys.sleep time loop
: