R 闪亮：根据操作按钮更新随机变量

Question

这是我目前正在处理的 R Shiny 中较大应用程序的最小工作示例。 每次单击操作按钮“确定”时，我都想生成一个介于 1 和 3 之间的新随机变量并显示它。我收到以下错误消息：Shiny 应用程序失败并显示“参数 1（类型 'closure'）无法由 'cat' 处理” - 这是什么意思？

ui <- fluidPage(
    
    titlePanel("Random Veriable"),
    actionButton("ok", "OK"),
    br(),
    verbatimTextOutput("anubis")
)

server <- function(input, output) {
    
    anu <- eventReactive(input$ok,{
        
        sample(c(1:3), size = 1, replace = T)
    })
    
    output$anubis <- renderText({
      
        if(input$ok > 0)
        {
            anu
        }
        
        else{
            0
        }
        
   })
}

如果有人能告诉我我在定义变量 anu 时出错的地方，我会很高兴。