如何在Shiny应用的rhandsontable中检测行取消选中并重置选中状态

rhandsontable的selectCallback参数只会在用户点击选中行时触发输入更新，但当点击表格外部取消行选中后，input$mytable_select会保留之前的选中行号，无法自动检测取消选中的动作。以下是无需重载表格的解决方案：

解决方案：监听表格失焦事件更新选中状态 #

通过添加自定义JavaScript代码，监听表格的失焦（blur）事件，当表格失去焦点且无选中内容时，手动向Shiny发送空选中状态，从而更新输入值。

完整代码 #

require(shiny)
require(rhandsontable)

shinyApp(
  ui = fluidPage(
    rHandsontableOutput("mytable"),
    # 自定义JS监听表格失焦事件
    tags$script(HTML("
      $(document).on('shiny:connected', function() {
        $('#mytable').on('blur', function() {
          var hotInstance = $('#mytable').handsontable('getInstance');
          var currentSelection = hotInstance.getSelected();
          // 无选中内容时，重置input值
          if(currentSelection === null) {
            Shiny.setInputValue('mytable_select', {select: {r: null}});
          }
        });
      });
    "))
  ),
  server = function(input, output, session) {

    output$mytable <- renderRHandsontable({
      rhandsontable(
        data = mtcars,
        selectCallback = TRUE
      )
    })
    
    observe({
      selected_row <- input$mytable_select$select$r
      if(is.null(selected_row)) {
        print("No rows selected")
      } else {
        print(paste0("Selected row: ", selected_row))
      }
    })  

  }
)

代码说明 #

• JS代码在Shiny完成连接后，为表格绑定blur事件监听；
• 当表格失去焦点时，获取当前选中状态，若没有选中行/列，就通过Shiny.setInputValue手动将input$mytable_select重置为包含r: null的对象；
• 这样Shiny端的observe就能实时检测到取消选中的动作，输出对应提示。

内容的提问来源于stack exchange，提问作者Ben Ernest