在应用中找不到反应功能

Question

我有一个相当投入的应用程序。当我调用特定的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)