r - 有没有办法在 Shiny 中设置 react 函数的优先级？

Question

我有 2 个 react 函数的问题。问题是，我需要其中一个在第二个之前执行。这是代码:

    sumItemsValues <- reactive({
      actualData <- switch (input$sumTabs,
                            area = sumAreaValues(),
                            kg = sumKgValues(),
                            yield = sumYieldValues(),
                            profits = sumProfitsValues(),
                            price = sumPriceValues(),
                            profitability = sumProfitabilityValues()
      )
    })
    
    sumValues <- reactive({
        actualData <- switch (input$sumTabs,
                            area = areaSum(),
                            kg = kgSum(),
                            yield = yieldSum(),
                            profits = profitsSum(),
                            price = priceSum(),
                            profitability = profitabilitySum()
        )
    })

在这 2 个功能之间，还有更多功能，当我运行应用程序并在短时间内切换选项卡时，我看到一个错误，但它很快就消失了。错误是因为它首先尝试执行第二个函数，而第二个函数需要执行第一个函数。感谢您的宝贵时间。

Answer 1

你可以在第二个函数中使用 req :

 sumItemsValues <- reactive({
      switch (input$sumTabs,
              area = sumAreaValues(),
              kg = sumKgValues(),
              yield = sumYieldValues(),
              profits = sumProfitsValues(),
              price = sumPriceValues(),
              profitability = sumProfitabilityValues()
      )
    })
    
    sumValues <- reactive({
        req(sumItemsValues())
        switch (input$sumTabs,
                area = areaSum(),
                kg = kgSum(),
                yield = yieldSum(),
                profits = profitsSum(),
                price = priceSum(),
                profitability = profitabilitySum()
        )
    })