作者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/cn.aspx?n=bbs/R_Language/M.1500563798.A.B27.html
※ 编辑: peterwu76 (123.193.92.13), 07/20/2017 23:18:03