Трудно объяснить, учитывая отсутствие воспроизводимого примера.
Используйте reactivePoll
вместо reactive
data <- reactivePoll(
intervalMillis = 1000 * 60 * 60,
session,
checkFunc = function(){
Sys.time()
},
valueFunc = function(){
# call API and return data here
}
)
Вышеуказанное будет запускаться checkFunc
при каждом intervalMillis
, если результаты checkFunc
отличаются, тогда возвращается valueFunc
.
Это будет работать везде, где вы развертываете, см. Shiny Server Community издание, чтобы развернуть свой собственный сервер. Вы можете увидеть примеры на digitalocean .