隔离反应式表达

Question

我想为 someobserveEvent 调用一个特定的反应式表达式，并为其他 observeEvent 隔离它。下面我有我想要实现的最少代码（我的实际应用程序包含许多 observeEventcalling 反应式表达式）。

library(shiny)

ui <- fluidPage(

  numericInput("Num1", "First number:", 0),

  numericInput("Num2", "Second number:", 0),

  textOutput("Answer"),

  actionButton("Button_1", "Call reactive"),

  actionButton("Button_2", "Don't Call reactive")

)

server <- function(input, output){

  Ans <- reactive({
    a <-input$Num1 + input$Num2
    a
  })

  observeEvent(input$Button_1, {

    output$Answer <- renderText({Ans()})

  })

  observeEvent(input$Button_2, {

    output$Answer <- renderText({isolate(Ans())})

  })

}


shinyApp(ui = ui, server = server)

在上面的应用程序中，我有两个actionButtonsButton_1（呼叫反应）和Button_2（不呼叫反应）。正如标签为第一个按钮 (Button_1) 建议的那样，我希望每次单击按钮时都调用响应式表达式，但对于第二个按钮 (Button_2)，我希望不调用响应式表达式（即使输入变化）。为了防止Button_2 表单调用反应式表达式，我添加了isolate，但这并不妨碍调用反应式表达式。

有没有什么方法可以在输入发生变化时隔离反应式表达式？

Answer 1

你可以使用?eventReactive()。

所以将reactive()函数替换为

  Ans <- eventReactive(input$Button_1,{
    input$Num1 + input$Num2
  })

（那你也可以去掉isolate()函数）。

正如您提到的，您有多个 observeEvent() 并且可能还有更多条件，值得一提的是，它也适用于多个条件：

  Ans <- eventReactive({input$Button_1;input$Button_2;...},{
    input$Num1 + input$Num2
  })