这是我尝试运行的脚本，randomApp函数是一个简单的闪亮应用程序的 Package 器。然而，当我调用randomApp()时，它抛出了一个错误：Error: 'server' must be a function。在我看来，服务器已经是一个函数了，所以我不知道为什么它会给我一个错误。有什么想法吗？

library(shiny)
randomUI <- function(id) {
    tagList(
        textOutput(NS(id, "val")),
        actionButton(NS(id, "go"), "Go!")
    )
}
randomServer <- function(id) {
    moduleServer(id, function(input, output, session) {
        rand <- eventReactive(input$go, sample(100, 1))
        output$val <- renderText(rand())
    })
}
randomApp <- function(){
    ui <- fluidPage(
        randomUI("random1"),
        randomUI("random2"),
        randomUI("random3")
    )
    
    server <- function(input, output, session) {
        randomServer("random1")
        randomServer("random2")
        randomServer("random3")
    }
    
    runApp(ui, server)
}
randomApp()