在r Shiny中全局刷新数据库中导入数据的方法是什么

Question

我在vm上托管了一个闪亮的应用程序，最初我从PostgreSQL中导入数据。现在我需要的是应用程序每天需要刷新一次大数据才能从PostgreSQL获取更新数据。我正在使用公司开发的内部软件包从postgresql获取数据。从包中使用的函数返回我在整个应用程序中使用的r数据帧中的数据。这个相同的数据框需要使用来自postgresql的刷新数据进行更新。下面的代码是我构建应用程序的方式。请提出在这种情况下更新数据的方法。

我已经尝试使用invalidatelater函数，但是在托管代码后它没有起作用。

getdata<-function(){
#query postgresql database to get data
}
data_ord_prfl<-getdata()
ui<-dashboardPage()
server <- function(input, output, session) {
observe({
  invalidateLater(180000,session=NULL)
  data_ord_prfl<-getdata()
})
#other reactives to manipulate data once data is refreshed.
#ploting graph with renderPlot.
}
output$plot<-renderPlot({
plot(data_ord_prfl)
})
shinyApp(ui = ui, server = server)

我希望'data_ord_prfl'数据框每天都进行一次全局更新，但是目前还没有按预期进行更新。