R shiny DT懸停鼠標移出表格時如何報告NULL

Question

相關R shiny DT懸停顯示明細表

我一直在開發一個應用程序，我想在用戶將鼠標懸停在表格上時顯示一些文本。

我一直在使用上面鏈接中示例的修改版本，但是有一個掛斷。

在用戶將鼠標移出表格的情況下，有沒有辦法讓input[["cell"]]恢復為NULL ？ 在當前的實現中，它報告鼠標在離開前觸摸的最后一個值。

library(shiny)
library(DT)

data(mpg, package = "ggplot2")

callback <- c(
  "table.on('mouseover', 'td', function(){",
  "  var index = table.cell(this).index();",
  "  Shiny.setInputValue('cell', index, {priority: 'event'});",
  "});"
)

ui <- fluidPage(
  br(),
  DTOutput("tbl"),
  htmlOutput("msg")
)

server <- function(input, output, session){

  dat <- mpg

  output[["tbl"]] <- renderDT({
    datatable(
      dat,
      callback = JS(callback)
    )
  })

  output[["tblfiltered"]] <- renderDT({
    datatable(
      filteredData(),
      fillContainer = TRUE,
      options = list(
        pageLength = 5
      )
    )
  })

  output$msg <- renderText(paste(input[["cell"]], collapse = ","))

}

shinyApp(ui, server)

Answer 1

感謝Stéphane Laurent的幫助

修改callback如下

callback <- c(
  "table.on('mouseover', 'td', function(){",
  "  var index = table.cell(this).index();",
  "  Shiny.setInputValue('cell', index, {priority: 'event'});",
  "});,
  table.on('mouseout', 'td', function(){",
  "  Shiny.setInputValue('cell', null, {priority: 'event'});",
  "});
"
)