那个cronR
怎么尝试都无法正常操作,不会用吖... ?
library(taskscheduleR)
myscript <- "A:/script.R" # path to script
taskscheduler_create(taskname = "myscriptdaily", rscript = myscript,
schedule = "DAILY", starttime = "09:10",
startdate = format(Sys.Date()+1, "%d/%m/%Y"))
然后就参考repeat()
函数,编写了个测试版应用,可以尝试shiny::runGitHub('englianhu/binary.com-interview-question', subdir = 'testRealTimeTransc')
运行下哦。
repeat {
startTime <- Sys.time()
runFunction()
sleepTime <- startTime + 5*60 - Sys.time()
if (sleepTime > 0)
Sys.sleep(sleepTime) }
源代码:Real Time Trading System (Trial)
参考文献: