将 Shiny Modules 中的数据从模块 1 传递到模块 2

Question

我没有可重现的示例，因为问题更多是关于模块如何工作的。我试图了解如何将一些反应函数从一个模块传递到下一个模块。我过去收到过关于使用 ObserveEvent 的回复，但当我使用一个模块中的反应值在另一个模块中执行其他操作时，它们似乎不起作用

module1 <- function(input, output, session){

data1<-reactive({
  #some reacttive funcion that produces an output

})
data2<-reactive({
  #some reacttive funcion that produces another output

})  



return(list(data1,data2))


  }

module2 <- function(input, output, session,data1){

observe( data1(), {

  #perform some other functions here using data1().e.g reading or parsing data
})


}

所以基本上我有一个模块 1 returns 来自 data1 和 data2 的两个输出

我想在模块 2 中使用 data1 的值并使用该值执行一些新操作。

我在这里看了类似问题的其他答案，但我还是不明白。如果有人可以帮助我更清楚地解释这个概念，那将有很大帮助感谢您的帮助

Answer 1

一种可能性是在构造时将输出从一个模块传递到另一个模块。这允许模块之间的层次关系。也有可能创建两个模块之间共享的内存，我不会在这个答案中介绍。

反应值

这里我创建了一个 inputModule 和一个 outputModule。 inputModule 接收到用户的两个文本输入，输出模块通过 verbatimTextOutput 显示它们。 inputModule 将用户提交的数据作为名为 ImProxy（输入模块代理）的 reactiveValues 对象传递给输出模块。 outputModule 像列表一样访问数据 (ImProxy$text1, ImProxy$text2).

library(shiny)

inputModuleUI <- function(id){
  ns <- NS(id)
  wellPanel(h3("Input Module"),
            textInput(ns('text1'), "First text"),
            textInput(ns('text2'), "Second text"))
}
inputModule <- function(input, output, session){
  vals <- reactiveValues()
  observe({vals$text1 <- input$text1})
  observe({vals$text2 <- input$text2})
  return(vals)
}

outputModuleUI <- function(id){
  wellPanel(h3("Output Module"),
            verbatimTextOutput(NS(id, "txt")))
}
outputModule <- function(input, output, session, ImProxy){
  output$txt <- renderPrint({
    paste(ImProxy$text1, "&", ImProxy$text2)
  })
}

ui <- fluidPage(
  inputModuleUI('IM'),
  outputModuleUI('OM')
)   
server <- function(input, output, session){
  MyImProxy <- callModule(inputModule, 'IM')
  callModule(outputModule, 'OM', MyImProxy)
}

shinyApp(ui, server)

这种方法也可以与 observe 或 observeEvent 一起使用。

列表（反应式）

如果您想使用 reactive 而不是 reactiveValues，可以使用上述代码的以下改编。您可以保留 ui 函数。

inputModule <- function(input, output, session){
  list(
    text1 = reactive({input$text1}),
    text2 = reactive({input$text2})
  )
}

outputModule <- function(input, output, session, ImProxy){
  output$txt <- renderPrint({
    paste(ImProxy$text1(), "&", ImProxy$text2())
  })
}

shinyApp(ui, server)

反应性（列表）

同样，这将为应用程序提供相同的功能，但代理模式略有不同。

inputModule <- function(input, output, session){
  reactive(
    list(
      text1 = input$text1,
      text2 = input$text2
    )
  )
}

outputModule <- function(input, output, session, ImProxy){
  output$txt <- renderPrint({
    paste(ImProxy()$text1, "&", ImProxy()$text2)
  })
}

shinyApp(ui, server)

将 Shiny Modules 中的数据从模块 1 传递到模块 2

Passing data within Shiny Modules from Module 1 to Module 2

r

shiny

shiny-server

shinydashboard

反应值

列表（反应式）

反应性（列表）