修改一个反应值应该触发一个观察块

Question

我正在修改 observeEvent 中的反应值。我有另一个 observe 块，它调用这个反应值。鉴于这种反应值依赖性，我希望observe 块在observeEvent 块的末尾被触发，但这似乎没有发生。这是预期的行为吗？

http://shiny.rstudio.com/reference/shiny/latest/reactiveValues.html 说 - “当您从中读取一个值时，调用响应式表达式会对该值进行响应式依赖，并且当您写入它时，它会通知任何依赖于该值的响应式函数。”

在下面的示例中，每次单击按钮时，我都希望输出带有 2 的 cat，并且根据 counter 的值，也会输出带有 3 的 cat。情况并非如此，输出通常会打印带有 1 的 cat，而不是带有 2 和 3 的 cats。

server.r

shinyServer ( 

   function(input, output, session) {

      lReactiveValues = reactiveValues(a = 1.1)

      voidaA = observeEvent(
         input$buttonCommit,
         {
            a = runif(1)
            cat(a,' 1\t')
            lReactiveValues$a = a
         }
      )

      voidB = observe({
         counter = runif(1)
         cat(counter,' 2\t'); 

         if (counter > 0.5) {

            cat('\n')

            cat(lReactiveValues$a,' 3\n')

         }
      }
      )

   }
)

ui.r

dashboardPage(

   dashboardHeader(

      title = "Analytics"

   ),

   ## Sidebar content
   dashboardSidebar(
   menuItem("Analysis", tabName = "tabAnalysis", icon = icon("calculator"))
   ),

   ## Body content
   dashboardBody(
      tabItems(
         tabItem(
            tabName = "tabAnalysis",
            actionButton("buttonCommit", "Commit!")
         )
      )
      #, style='width: 100%; height: 100%;'

   )
)

Answer 1

我不是 100% 确定我完全理解你想要什么，但也许你想要的只是添加 lReactiveValues$a 作为 voidB 观察者内的第一行。看看它是否像你期望的那样工作。

如果这是您的问题，我想我了解问题的根源。观察者的工作方式是它们首先运行并记录他们可以找到的所有反应性依赖关系，然后每当这些依赖关系中的一个发生变化时，观察者就会再次运行。由于您在那里有一个随机器，这意味着应用程序运行的一半时间，使用lReactiveValues$a 的代码行永远不会运行，因此观察者不知道lReactiveValues$a 是一个依赖项。这就是为什么您会注意到不一致的行为 - 有时 voidB 会运行几次，但最终会在随机数