web-dev-qa-db-ja.com

シャイニーモジュール内でモジュール1からモジュール2にデータを渡す

モジュールがどのように機能するかが問題であるため、再現可能な例はありません。あるモジュールから次のモジュールにリアクティブ関数を渡す方法を理解しようとしています。過去に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
})


}

つまり、基本的に、data1とdata2から2つの出力を返すmodule1があります。

モジュール2でdata1の値を使用し、その値を使用して新しい操作を実行したいと思います。

私はここで同様の質問に対する他の答えを見てきましたが、それでも私はそれらを理解していません。誰かが私がこの概念をより明確に説明するのを手伝ってくれるなら、それはあなたの助けに大いに役立つでしょう

14
shamary

1つの可能性は、構築時に1つのモジュールから別のモジュールに出力を渡すことです。これにより、モジュール間の階層的な関係が可能になります。この回答では取り上げない2つのモジュール間で共有されるメモリを作成する可能性もあります。

reactValues

ここで、inputModuleoutputModuleを作成しました。 inputModuleはユーザーによる2つのテキスト入力を受け取り、出力モジュールはverbatimTextOutputを介してそれらを表示します。 inputModuleは、ユーザーが送信したデータをreactiveValues(入力モジュールプロキシ)と呼ばれるImProxyオブジェクトとして出力モジュールに渡します。 outputModuleは、リストのようにデータにアクセスします(ImProxy$text1ImProxy$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)
21