R 在指定时间检查某物的应用程序
我想知道是否有一种方法可以让你每天在指定的时间检查某个正在运行的东西。现在我知道这是不推荐的,我已经通读了 我也知道Shiny中的reactiveTimer函数。然而,我已经开发并部署了我的闪亮应用程序作为桌面应用程序,而不是url,因此我的同事喜欢让它保持打开状态。以下是我尝试的基本示例:R 在指定时间检查某物的应用程序,r,vbscript,shiny,R,Vbscript,Shiny,我想知道是否有一种方法可以让你每天在指定的时间检查某个正在运行的东西。现在我知道这是不推荐的,我已经通读了 我也知道Shiny中的reactiveTimer函数。然而,我已经开发并部署了我的闪亮应用程序作为桌面应用程序,而不是url,因此我的同事喜欢让它保持打开状态。以下是我尝试的基本示例: library(shiny) ui <- fluidPage() server <- function(input, output, session) { test <- rea
library(shiny)
ui <- fluidPage()
server <- function(input, output, session) {
test <- reactiveValues(value = format(as.POSIXlt(Sys.time()), "%H:%M"))
observeEvent(test$value == "7:15", {
stopApp()
})
}
shinyApp(ui, server)
库(闪亮)
ui这样做很有效(有点冗长,但有效)
您需要设置变量timeStop
(HH:MM:SS)
库(闪亮)
ui您好,我想了解为什么这里使用了reactivevalue?为什么不观察事件时间停止,然后只停止应用()?
library(shiny)
ui <- fluidPage(
uiOutput("info")
)
server <- function(input, output, session) {
## Variable to set the time when app stops automatically (HH:MM:SS)
timeStop <- "22:47:20"
toStop <- as.POSIXct(timeStop, format="%H:%M:%S")
if (Sys.time() > toStop) {
toStop <- toStop + 86400
}
secsToStop <- round(as.numeric(difftime(toStop, Sys.time(), units = "secs")) * 1000)
timeToStop <- reactiveTimer(secsToStop)
trick <- reactiveValues()
trick$toFire <- FALSE
observeEvent(timeToStop(), {
if (trick$toFire) {
stopApp()
} else {
trick$toFire <- TRUE
}
})
output$info <- renderUI({
h2(paste("App will stop automatically at ", toStop))
})
}
shinyApp(ui, server)