在一个闪亮的应用程序中的多个reactiveValues

Question

我在Shiny中使用reactiveValues很多，因为它们比只有input和output对象更灵活。嵌套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像输入$的读/写版本，你可以有一个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)