Как можно периодически запускать скрипт r в фоновом режиме (то есть каждые 1 час), когда блестящее приложение / браузер закрыты? - PullRequest
1 голос
/ 15 апреля 2019

мы создали приложение 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")
   }
   })
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...