每天在特定时间调用myFunction，有光泽吗？

Question

我正在寻找一种方法来每天调用一个函数％H：％M在已部署的闪亮应用程序的server.R中。 使用无限循环“观看时钟”可能是一种罪恶，并不起作用。任何想法？

ui.R

library(shiny)
shinyUI(fluidPage("floou", textOutput("foo")))

server.R

library(shiny)
myFunction <- function() {...}
repeat {  # same behavior with while (T)
  # Sys.sleep(60)  # also tried sleeping
  if (format(as.POSIXlt(Sys.time(), tz = "GMT"), "%H:%M") == "21:00") {
    myFunction()  # func not called + rendering blocked -> approach not working
  }
}
shinyServer(function(input, output) {
  output$foo <- renderText("not rendering with infinite loop")
})

Answer 1

可以通过这种方式完成。 但是您必须举行公开会议。

server.R

for ( $j = 0 , $i_temp = $i ; $j <= min( $i , $size - 1 ) ; $j++ , $i_temp-- )