How do I capture the mouse event, in this case when using rhino?

[Roberto-Parra]

This is an example where the column the mouse passes over in the table is captured.

library(shiny)
library(DT)

ui <- fluidPage(
        DTOutput("mytable"),
        textOutput("hover_info")
)

server <- function(input, output, session) {
        output$mytable <- renderDT({
                datatable(iris, 
                          options = list(
                                  dom = 't',
                                  rowCallback = JS(
                                          "function(row, data, index) {",
                                          "$(row).find('td').hover(function() {",
                                          "  var colIndex = $(this).index();",
                                          "  Shiny.onInputChange('hovered_column', colIndex + 1);",
                                          "});",
                                          "}"
                                  )
                          )
                )
        })
        
        output$hover_info <- renderText({
                paste("Hovered column:", input$hovered_column)
        })
}

shinyApp(ui, server)

In rhino version:

#app/view/table
box::use(
    shiny[NS, moduleServer, tagList, textOutput, renderText, ],
    DT[DTOutput, renderDT, datatable, JS, ],
    datasets[iris, ],
)


#' @export
ui <- function(id) {
    ns <- NS(id)
    tagList(
    DTOutput(ns("mytable")),
    textOutput(ns("hover_info"))
    )
}

#' @export
server <- function(id) {
    moduleServer(id, function(input, output, session) {

        output$mytable <- renderDT({
            datatable(iris, 
                      options = list(
                          dom = 't',
                          rowCallback = JS(
                              "function(row, data, index) {",
                              "$(row).find('td').hover(function() {",
                              "  var colIndex = $(this).index();",
                              "  Shiny.onInputChange('hovered_column', colIndex + 1);",
                              "});",
                              "}"
                          )
                      )
            )
        })
        output$hover_info <- renderText({
            paste("Hovered column:", input$hovered_column)
        })
    })
}

Questions:

1. Is something missing to be loaded in box::use?
2. Are there any special considerations when using Shiny.onInputChange in Rhino to ensure values are updated correctly in Shiny?

[PawanRamaMali]

Hello @Roberto-Parra ,

In the Rhino code, we need to address the namespace issue in the hovered_column variable within the Shiny module, you'll need to ensure that it is properly scoped with the NS() function. Here's a detailed correction of your code:

• No change is needed in the UI function, as it correctly uses namespacing.

• Update the server function to use session$ns: Ensure that all input and output IDs within the server function are scoped to the module instance.
  For example,

#' @export
server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns  # define ns() for use within the module server
    
    output$mytable <- renderDT({
      datatable(iris, 
                options = list(
                  dom = 't',
                  rowCallback = JS(paste0(
                    "function(row, data, index) {",
                    "$(row).find('td').hover(function() {",
                    "  var colIndex = $(this).index();",
                    " Shiny.onInputChange('", ns("hovered_column"), "', colIndex + 1);",
                    "});",
                    "}"
                  ))
                )
      )
    })
    output$hover_info <- renderText({
      paste("Hovered column:", input$hovered_column)
    })
  })
}

[Roberto-Parra]

Thank you so much!