use reset button of searchInput in server() about shinywidgets HOT 2 CLOSED

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput(inputId = "text", label = "Text", value = NULL),
      searchInput(inputId = "search", label = "Search", value = NULL, btnReset = icon("remove")),
      
      tags$p("Reset button value :"),
      verbatimTextOutput(outputId = "res")
    ),
    mainPanel()
  )
)

server <- function(input, output, session) {
  
  output$res <- renderPrint({
    input$search_reset # this is the value for reset button
  })
  
  observeEvent(input$search_reset, {
    updateTextInput(session = session, inputId = "text", value = "RESET!")
  })
}

shinyApp(ui = ui, server = server)