How to deselect row? about rhandsontable HOT 1 CLOSED

require(shiny)
require(rhandsontable)
shinyApp(
  ui = fluidPage(
    rHandsontableOutput("mytable")
  ),
  server = function(input, output, session) {
    
    output$mytable <- renderRHandsontable({
      rhandsontable(
        data = mtcars,
        selectCallback = T,
        afterDeselect = htmlwidgets::JS(
          "function() {Shiny.onInputChange('hotDeselect', Math.random())}"
        )
      )
    })
    
    observeEvent(input$hotDeselect, {
      print("Table was deselected!")
    })
    
    observe({
      if(is.null(input$mytable_select$select$r)) {
        print("No rows selected")
      } else {
        print(paste0("Selected row: ", input$mytable_select$select$r))
      }
    })
    
  }
)