R闪亮模块部署问题之间的通信

Question

我对 R 闪亮模块之间的通信有疑问。我用 golem 包开发了一个有两个模块的应用程序：数据和分析https://xuemaozhang.shinyapps.io/reactivedata/ 为了共享一个数据集，我在 app_server.R 中使用了 reactiveValues, values = reactiveValues(data_imported=NULL)。

在我将应用程序部署到shinyapps.io 后，我发现它不允许多个用户：当一个用户更改数据时，其他用户也会看到相同的更新数据。我是闪亮的应用程序开发的新手。如何解决问题？源码可见我的github站点：https://github.com/xuemaozhang/reactivedata

Answer 1

我更改了mod_module1_data_server、mod_module2_analysis_server 和app_server 函数以便在会话中处理数据，无需在服务器函数之外创建reactiveValues()：

mod_module1_data_server <- function(id){
  moduleServer( id, function(input, output, session){
    # ns <- session$ns
    Data <- reactive({
      Data <- get(input$dataset)
      Data
    })
    output$datatable<-renderDataTable({ Data()  })
    return(reactive(Data()))
  })
}

mod_module2_analysis_server <- function(id, Data){
  moduleServer( id, function(input, output, session){
    ns <- session$ns

    observe({
      updateSelectizeInput(session, "numvar",
                           choices = names(Data()))
    })

    output$summary <- renderPrint({
      summary(Data()[, input$numvar])
    })

    output$histogram<- renderPlot({
      hist(Data()[, input$numvar])
    })
  })
}

这是你应该放在服务器上的：

server <- function( input, output, session ) {
  Data <- mod_module1_data_server("module1_data_ui_1")
  mod_module2_analysis_server("module2_analysis_ui_1", Data)
  
}