Shiny App 的 Rhino 模块 - 我的应用程序不工作

问：

我正在尝试学习 rhino 模块来开发 R 闪亮的应用程序，但被这个简单的应用程序卡住了：

app/view/page1 中。R

box::use(
    shiny[moduleServer, textOutput, renderText, NS, div],
    shiny.fluent[TextField.shinyInput, Stack]
)

#' @export
ui <- function(id){
    ns <- NS(id)
    Stack(TextField.shinyInput(ns("page1input"), value = "default value"),
          textOutput(ns('page1print'))
          )
}

#' @export
server <- function(id) {
    moduleServer(id, function(input, output, session){
        output$page1print <- renderText(sprintf("Input from above: %s", input$page1input))
    })
}

主要。R

box::use(
  shiny[div, moduleServer, NS, renderUI, tags, uiOutput, renderText],
  shiny.fluent[fluentPage]
)

box::use(
  app/view/page1
)

#' @export
ui <- function(id) {
  ns <- NS(id)
  fluentPage(
    page1$ui('p1')
  )
}

#' @export
server <- function(id) {
  moduleServer(id, function(input, output, session) {
    page1$server('p1')
  })
}

我希望应用程序打印用户的输入，但事实并非如此。谁能帮忙？多谢