Как остановить сброс переменных R в Shiny каждый раз при изменении входа?

Question

У меня длительная операция, которую нужно выполнить только один раз.Проблема в том, что где бы я ни пытался сохранить результат, как только пользователь изменит какой-либо параметр на странице, операция будет выполнена снова.

Я пробовал:

# server
function (input, output, session)
{
   # this code gets executed every time a user changes an input on the page
   result <- doLongOperation()
   observe({
    output$plot <- renderPlot({
       getMyPlot(result)
   )}
}

Я тоже пробовал:

# server
result <- NULL

function (input, output, session)
{
   if (is.null(result))
   { 
      # this code also gets executed every time a user changes an input on the page 
      #so it's like the result is not getting saved
      result <- doLongOperation()
   }
   observe({
    output$plot <- renderPlot({
       getMyPlot(result)
   )}
}