invalidateLater问题

时间:2016-03-15 10:51:35

标签: r shiny

在一个闪亮的应用程序中,我建立了一个无效条件的时间周期为一天(86400000毫秒= 24小时)。工作正常,直到系统重新启动并安装新的R版本3.2.4。现在它不能正常工作。我的意思是失效间隔不匹配,并且在一段时间后该过程似乎到期。

我试着以30秒的间隔测试它:

invalidateLater(30000, session)

使用cat函数,我可以跟踪无反应对象的刷新时间:

MyData <- reactive({   # Responds to changes. But in here, only the invalidation triggers change.
invalidateLater(30000, session) # Invalidates MyData() after 30000 millisecs = 30 secs.
connection <- odbcConnect(dns, usr, pass)
SituationToday<-{cat(Sys.time());sqlQuery(connection, "SELECT ALL * FROM Table;")}
odbcClose(connection)
SituationToday
})

cat函数的触发器结果是UNIX格式:

val<-c(1458036067,1458036158,1458036251,1458036340,1458036430,1458036519,1458036608,1458036700)

各个时间点之间的时差不符合我的预期:

diff(as.POSIXct(val, origin="1970-01-01"))

分钟的时差:

[1] 1.516667 1.550000 1.483333 1.500000 1.483333 1.483333 1.533333

根据需要远离30秒间隔。而且,这就是我得到的,失效过程在大约11分钟后停止(UNIX时间值458036700)。

我使用闪亮的0.13.1, shinydashbaord 0.5.1, R 3.2.4,Windows Server2012R2。

任何人都知道造成这种行为的原因是什么?

0 个答案:

没有答案