Question

如何覆盖/重新定义反应式表达式，同时保持所有观察者对该表达式的完整性？

下面的示例旨在让观察者听到按钮单击，但仅在单击按钮一次之后。在此之前，观察者应该对数字输入字段做出反应。（请注意，如果可能，我希望观察者不要接触。我想重新定义反应表达式。）

library(shiny)

ui <- fluidPage(
      numericInput(inputId="some_numbers",value=8,label = "Enter a number:"),
      actionButton(inputId = "button1",label="Update reactive expression")
)

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

  my_reactive_expr <- reactive({
    input$some_numbers
  })

  observeEvent(my_reactive_expr(),{
    print("reactive value change detected!")
  })

  observeEvent(input$button1,{
    my_reactive_expr <<- reactive({
      input$button1
    })
  })

}

shinyApp(ui = ui, server = server)

Answer 1

就像在评论中写的那样我会建议像：

library(shiny)

ui <- fluidPage(
  numericInput(inputId="some_numbers",value=8,label = "Enter a number:"),
  actionButton(inputId = "button1",label="Update reactive expression")
)

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

    my_reactive_expr <- reactive({ 
      if(!input$button1) return(input$some_numbers)
      input$button1 
    })

  observeEvent(my_reactive_expr(),{
    print("reactive value change detected!")
  })

  observeEvent(input$button1,{
    my_reactive_expr <<- reactive({
      input$button1
    })
  })

}

shinyApp(ui = ui, server = server)

完整的应用程序会显示：

{{1}}

就像那样，你可以避免覆盖反应功能。

改变反应性表达，保持观察者

1 个答案: