闪亮应用程序中的多个反应值

Question

我在 Shiny 中经常使用 reactiveValues，因为它们比 input 和 output 对象更灵活。嵌套的 reactiveValues 很棘手，因为任何孩子的任何变化也会触发与父母相关的反应。为了解决这个问题，我尝试制作两个不同的 reactiveValues 对象（不是同一个列表中的两个对象，而是两个不同的列表），它似乎正在工作。我找不到任何这样的例子，并想知道它是否应该以这种方式工作。是否会因此而出现任何问题？

在这个应用程序中，有两个反应值对象 - reac1 和 reac2。它们中的每一个都链接到一个下拉列表，分别为column1 和column2。更改 column1 或 column2 会使用最新时间更新反应值，更新绘图，并在 reac1 和 reac2 中打印最新值。

ui = fluidPage(
  titlePanel("Multiple reactive values"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "column1", "Reac1", letters, selected = "a"),
      selectInput(inputId = "column2", "Reac2", letters, selected = "a")
    ),
    mainPanel(
      plotOutput("plot1")
    )
  )
)

server = function(input, output, session) {
  reac1 <- reactiveValues(asdasd = 0)
  reac2 <- reactiveValues(qweqwe = 0)

  # If any inputs are changed, set the redraw parameter to FALSE
  observe({
    input$column2
    reac2$qweqwe = Sys.time()
  })

observe({
    input$column1
    reac1$asdasd = Sys.time()
  })


  # Only triggered when the copies of the inputs in reac are updated
  # by the code above
  output$plot1 <- renderPlot({
      print(paste(reac1$asdasd, 'reac1'))
      print(paste(reac2$qweqwe, 'reac2'))
      hist(runif(1000))
  })
}
shinyApp(ui, server)

Answer 1

ReactiveValues 类似于 input$ 的读/写版本，您可以在一个 reactiveValue 列表中包含多个“独立”变量。因此，您的示例中不需要两个反应值。请参阅下面的代码。

ui = fluidPage(
  titlePanel("Multiple reactive values"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "column1", "Reac1", letters, selected = "a"),
      selectInput(inputId = "column2", "Reac2", letters, selected = "a")
    ),
    mainPanel(
      verbatimTextOutput("txt1"),
      verbatimTextOutput("txt2")
    )
  )
)

server = function(input, output, session) {
  reac <- reactiveValues()
  #reac2 <- reactiveValues(qweqwe = 0)

  # If any inputs are changed, set the redraw parameter to FALSE

  observe({ 
    reac$asdasd =  input$column1
  })  
  observe({ 
    reac$qweqwe = input$column2
  }) 

  # Only triggered when the copies of the inputs in reac are updated
  # by the code above
  output$txt1 <- renderPrint({
    print('output 1')
    print(paste(reac$asdasd, 'reac1'))  
  })

  output$txt2 <- renderPrint({ 
    print('output2') 
    print(paste(reac$qweqwe, 'reac2')) 
  }) 

}
shinyApp(ui, server)