在应用程序中找不到反应功能

我有一个相当复杂的应用程序。当我调用一个特定的eventReactive函数时,我们称它为函数a,在一个反应式表达式中,我得到一个错误,函数a找不到。

我无法复制确切的应用程序,因为它是专有的,但我确实创建了一个模拟我的设置的虚拟应用程序。我意识到虚拟应用程序和我实际拥有的应用程序之间肯定有一些区别,但我无法理解。有问题的函数就在那里,所以我根本不明白为什么找不到它。

library(shiny)

ui <- fluidPage(
  sliderInput(inputId = "num", 
              label = "Choose a number", 
              value = 25, min = 1, max = 100),
  actionButton(inputId = "action",
               label = "Update"),
  plotOutput("hist"),
  verbatimTextOutput("stats")
)

server <- function(input, output) {

  data <- eventReactive(input$action, {
    input$num*2
  })

  data2 <- reactive({
    data()*2
  })

  output$stats <- renderPrint({
    data2()
    })
}

shinyApp(ui = ui, server = server)