在R中闪亮:点击按钮后如何将输入值设置为空？

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  textInput("input_value", "输入值："),
  actionButton("reset_button", "重置"),
  verbatimTextOutput("output_value")
)

library(shiny)

server <- function(input, output, session) {
  observeEvent(input$reset_button, {
    updateTextInput(session, "input_value", value = "")
  })
  
  output$output_value <- renderPrint({
    input$input_value
  })
}

shinyApp(ui, server)