将反应或静态值传递给同一个闪亮的模块

Question

我的应用程序中有两次调用相同的模块。在其中一个调用中，我有一个“静态”data.frame，而在第二个调用中，我想传递一个反应值。

是否可以将反应和静态值传递给同一个闪亮模块？ 如果这不可能，最好开发同一模块的 2 个版本或将其他数据框也转换为反应式？

#--- Reactive Values  ----
reactive_selected_account  <- reactive({ input$budget_slider })
reactive_monthly_total     <- reactive({
    monthly_total %>%
        filter( account==reactive_selected_account() ) %>%
        group_by(dt) %>%
        select(-account) %>%
        function_do_monthly_total()
})

#--- Components Calls ----
callModule(component_srv, "istance1", data=monthly_total)
callModule(component_srv, "istance1", data=reactive_monthly_total() )

Answer 1

您可以以预期反应值的方式编写模块

component_srv <- function(input, output, session, reactive_parameter) {
  observeEvent(reactive_parameter(), {
    # ...
  }
  # ...
}

然后您可以选择传递一个静态值，只需将reactive() 包裹起来。

static_object <- iris
callModule(component_srv, "instance", 
           reactive_parameter = reactive(static_object))

reactive_object = reactive({
  get_data(input$dataset)
})
callModule(component_srv, "instance2",
           reactive_parameter = reactive_object)

请注意，您需要在callModule() 中使用reactive_object 而不是reactive_object() 才能完成这项工作。