闪亮的触发器刷新数据 - 无效不起作用

Question

我有一个闪亮的应用程序，可以从 SQL 查询数据。我在内部服务器上运行它，并希望数据每隔一小时左右自动刷新一次。

到目前为止，这仅在我将 shinApp 文件新放在服务器上并第一次运行时才有效。之后，每当我重新加载链接时，数据都不会改变。

我尝试如下使用无效，但它不会刷新数据。

 shinyServer(function(input, output, session) {

  sourceData <- reactive({
  invalidateLater(3000000,session)
  return(sourceData())
})
.
.
.
})

sourceData() 的定义位置

 sourceData<-function(){
 data1 <<- get_data1( 'query here' )
 data2 <<- get_data2( 'query here' )
 }

有人遇到过这个问题吗？

我看到 reactivepoll() 是另一种选择。 valueFunc 将是我的 sourceData，但不确定如何在我的上下文中集成 checkFunc。

Answer 1

如果您不希望使用 sourceData() 来返回任何内容，因为这是它寻找我的方式，您可以执行以下操作之一：

1

 # sourceData() shouldn't return anything but it will still write into data1 and data2
    sourceData <- reactive({
      invalidateLater(3000000,session)
      data1 <<- get_data1( 'query here' )
      data2 <<- get_data2( 'query here' )
    })

2

# This is the preferred option as it seems to me you don't want to use sourceData() but rather the data1 and data2
sourceData <- observe({
  invalidateLater(3000000,session)
  data1 <<- get_data1( 'query here' )
  data2 <<- get_data2( 'query here' )
})

还请查看reactivePoll，reactivePoll and reactiveFileReader 中提供了如何构建它的示例