R Shiny -如何将字符串和数字连接到新字符串并打印

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("text", "输入字符串："),
      numericInput("number", "输入数字：", value = 0),
      actionButton("submit", "提交")
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$submit, {
    text <- input$text
    number <- input$number
    
    result <- paste(text, number)
    
    output$result <- renderPrint(result)
  })
}

shinyApp(ui, server)