将响应式服务器值传递给模块

Question

我有一个像这样具有服务器功能的闪亮应用程序；

shinyServer(function(input, output) {
 chosen_fam <- reactive({ input$fam })

  output$newui <- renderUI({  NewProductUI("newproduct", fam = chosen_fam()) })
  output$newbtn <- renderUI({ NewProductButtonUI("newproduct", fam =  chosen_fam()) })

  callModule(NewProduct, id = "newproduct", fam =  chosen_fam())
})

NewProduct 模块内部有这样的东西：

NewProduct <- function(input, output, session, fam){
  observeEvent(input$submitnew, {
    print(paste0("Adding.... ", fam))

    row <- c(fam, input$variable)
    upload_to_googlesheets(token, row)
})

UI 会根据所选系列进行渲染，服务器模块也会根据系列执行不同的操作。

渲染 UI 似乎工作正常，但 callModule 中的“fam”变量没有更新（因此它始终是第一个选择的系列的结果）。来自输入的变量运行良好，所以我想这与范围界定有关（它可能正在“newproduct”命名空间中寻找“fam”？）。

如何明确告诉callModule 使用会话命名空间中的反应式表达式？或者有没有办法我可以将 fam 变量添加到“newproduct”命名空间？

Answer 1

你必须给反应导体本身：

callModule(NewProduct, id = "newproduct", fam =  chosen_fam)

（无括号）。在模块中：

row <- c(fam(), input$variable)

（括号）。