Shiny：使用observe刷新数据的源文件

Question

我有一个helper.R，我想从app.R来源来刷新数据。 helper.R包含基于Sys.Date()的路径变量，例如

data_path <- paste0("data_", Sys.Date(), ".csv")

我在闪亮的服务器上运行了一个闪亮的应用程序，我希望每天使用helper.R来源observe

helper.R

cur_date <- Sys.Date()

app.R

observe({
    invalidateLater(10000, session)
    if (Sys.Date() > cur_date) {
        source("helper.R")
    }
})

由于某种原因，此设置无法用于数据刷新。我不太熟悉R中的变量范围。感谢任何帮助。