如何在闪亮的反应式表子集上执行base R函数？

install.packages("shiny")
library(shiny)

ui <- fluidPage(
  # 在这里构建用户界面
)

server <- function(input, output) {
  # 在这里编写服务器端逻辑
}

shinyApp(ui, server)

ui <- fluidPage(
  textInput("input_text", "输入文本："),
  actionButton("submit_button", "提交"),
  verbatimTextOutput("output_text")
)

server <- function(input, output) {
  output$output_text <- renderText({
    # 在这里执行base R函数
    result <- base::toupper(input$input_text)
    result
  })
  
  observeEvent(input$submit_button, {
    # 在这里执行其他base R函数
    # ...
  })
}