如何将 selecticizeGroupInput 与 future_promise 一起使用

我正在利用future 的promise 更有效地调用我的数据.然而，我发现我的过滤器(通过selecticizeGroupServer调用)不符合future 的promise .

请参阅附件中的最小可复制示例.当我从数据react 式表达式中删除"future\u promise"函数时，过滤器按预期工作.但是，当我使用"future\u promise"时，过滤器模块出现故障.

你能帮我找出我做错了什么吗？

library(shiny)
library(future)
library(promises)
library(shinyWidgets)

plan(multisession)

ui <- fluidPage(

    titlePanel("Example App"),

    sidebarLayout(
        sidebarPanel(),
        mainPanel(
          selectizeGroupUI(
            id = "filters",
            inline = FALSE,
            params = list(
              `mpg` = list(inputId = "mpg", title = "mpg", placeholder = "All"),
              `cyl` = list(inputId = "cyl", title = "cyl", placeholder = "All"),
              `disp` = list(inputId = "disp", title = "disp", placeholder = "All")
            )
          )
        )
    )
)

server <- function(input, output) {

  data <- reactive({
    
    future_promise({

      mtcars

    })

  })

  filter_mod <- reactive({})
  
  observe({
    
    filter_mod <<- callModule(
      module = selectizeGroupServer,
      id = "filters",
      inline = FALSE,
      data = data,
      vars = c("mpg", "cyl", "disp")
    )
    
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)