[問題] time loop
[問題類型]:
程式諮詢(我想用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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.112.1.187
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1499754775.A.D03.html
推
07/11 15:21, , 1F
07/11 15:21, 1F
→
07/11 15:21, , 2F
07/11 15:21, 2F
→
07/11 15:21, , 3F
07/11 15:21, 3F
→
07/11 15:59, , 4F
07/11 15:59, 4F
→
07/11 15:59, , 5F
07/11 15:59, 5F
→
07/11 16:15, , 6F
07/11 16:15, 6F
→
07/11 16:15, , 7F
07/11 16:15, 7F
推
07/11 16:18, , 8F
07/11 16:18, 8F
→
07/11 16:20, , 9F
07/11 16:20, 9F
→
07/11 16:21, , 10F
07/11 16:21, 10F
→
07/11 16:27, , 11F
07/11 16:27, 11F
推
07/11 16:47, , 12F
07/11 16:47, 12F
→
07/11 17:17, , 13F
07/11 17:17, 13F
→
07/11 17:17, , 14F
07/11 17:17, 14F
※ 編輯: peterwu76 (140.112.1.187), 07/11/2017 17:36:34
推
07/11 17:52, , 15F
07/11 17:52, 15F
→
07/11 17:52, , 16F
07/11 17:52, 16F
→
07/11 18:00, , 17F
07/11 18:00, 17F
→
07/11 18:01, , 18F
07/11 18:01, 18F
→
07/11 18:01, , 19F
07/11 18:01, 19F
→
07/11 18:01, , 20F
07/11 18:01, 20F
→
07/11 18:08, , 21F
07/11 18:08, 21F
→
07/11 18:08, , 22F
07/11 18:08, 22F
→
07/11 18:08, , 23F
07/11 18:08, 23F
→
07/11 19:41, , 24F
07/11 19:41, 24F
※ 編輯: peterwu76 (123.193.92.13), 07/11/2017 21:40:23
推
07/11 22:56, , 25F
07/11 22:56, 25F
→
07/11 22:57, , 26F
07/11 22:57, 26F
→
07/12 17:29, , 27F
07/12 17:29, 27F
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章