мы создали приложение Shiny, которое развернуто на shinyapp.io.мы пытаемся перезагружать данные в shinyapp.io каждые 1 час, используя invalidateLater, но он не работает, когда приложение закрыто / браузер закрыт.мы слышали о cronR, но не смогли использовать его через систему Windows (развертывание приложения из windows в shinyapp.io).При развертывании на shinyapp.io
пакет cronR не устанавливаетсяЗатем он вызовет функцию data_refresshing () и перезагрузит приложение.
observe({
invalidateLater(300000, session = session)
myRedshift <- src_postgres('dfdbwh',
host = 'xxxxxxxxxxxxxxxxxxxxxxx',
port = 1234,
user = "xxxxxxxx",
password = "xxxxxxxxxx")
data <- tbl(myRedshift, "MAX_ETLINCR_DATE_V")
t <- data %>% select(maxdate)
temp <- as.data.table(t)
last_ETL_updated_date_time <- temp$maxdate
last_updated_date_time <- readRDS("last_updated_date_time.rds")
if(last_updated_date_time < last_ETL_updated_date_time)
{
data_refreshing()
js$reload()
}
if(file.exists("Trigger_time.rds") == FALSE)
{
Trigger_time <- c(Trigger_time,paste0(now(tz="Asia/Kolkata")))
saveRDS(Trigger_time,file = "Trigger_time.rds")
}
else
{
Trigger_time <- readRDS("Trigger_time.rds")
Trigger_time <- c(Trigger_time,paste0(now(tz="Asia/Kolkata")))
saveRDS(Trigger_time,file = "Trigger_time.rds")
}
})