[feature request] set_input_hover for capturing mouseover events about apexcharter

[pvictor]

Hello,

I have to see how this event works with different types of charts before eventually integrate it like click event. Here's an example on how to use it currently:

library(shiny)
library(apexcharter)

ui <- fluidPage(
  tags$h3("Hover points information"),
  fluidRow(
    column(
      width = 6,
      apexchartOutput("chart")
    ),
    column(
      width = 6,
      verbatimTextOutput("res")
    )
  )
)

server <- function(input, output, session) {
  
  output$chart <- renderApexchart({
    apex(mtcars, aes(disp, qsec), type = "scatter") %>% 
      ax_chart(
        events = list(
          mouseMove = JS(
            "function(event, chartContext, config) {",
            "Shiny.setInputValue('myid', config.dataPointIndex);",
            "}"
          )
        )
      )
  })
  
  output$res <- renderPrint({
    req(input$myid)
    index <- input$myid + 1
    if (index > 0) {
      mtcars[index, ]
    }
  })
  
}

shinyApp(ui, server)

The value returned is the index of the data (starting from 0 in JavaScript), returning -1 if no point hovered.
This works here because there's only one serie of data, if several, you'll have to use seriesIndex too.

VIctor