作者peterwu76 (金岡)
看板R_Language
標題Re: [問題] time loop
時間Thu Jul 20 23:16:33 2017
: [問題類型]:
:
: 程式諮詢(我想用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
:
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.92.13
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1500563798.A.B27.html
※ 編輯: peterwu76 (123.193.92.13), 07/20/2017 23:18:03