R Shiny : Reuse lengthy computation for different output controls

Question

我在 server.R 中有以下代码:

library(shiny)

source("helpers.R")

shinyServer(function(input, output) {
    output$txtOutput1 <- renderText({ 
        someLengthyComputation(input$txtInput)[1]
    })
    output$txtOutput2 <- renderText({ 
        someLengthyComputation(input$txtInput)[2]
    })
    output$txtOutput3 <- renderText({ 
        someLengthyComputation(input$txtInput)[3]
    })
})

helpers.R 包含方法 someLengthyComputation它返回一个大小为 3 的向量。我怎样才能避免每次调用它 3 次 txtInput更改并且只在更新所有三个文本输出控件时调用一次？

Answer 1

您可以简单地放置 someLengthyComputation里面 reactive 表达:

shinyServer(function(input, output) {
    someExpensiveValue <- reactive({
        someLengthyComputation(input$txtInput)
    })

    output$txtOutput1 <- renderText({ 
        someExpensiveValue()[1]
    })

    output$txtOutput2 <- renderText({ 
        someExpensiveValue()[2]
    })

    output$txtOutput3 <- renderText({ 
        someExpensiveValue()[3]
    })
})

someLengthyComputation只有在 input$txtInput 时才会触发更改，否则呈现第一个输出 someExpensiveValue将返回一个缓存值。

虽然执行策略略有不同，但也可以使用 reactiveValues 的组合。和 observe .

如 someLengthyComputation真的很贵，您应该考虑添加 action button或 submit button并且仅在单击时触发计算，尤其是当您使用 textInput 时.