`e_showtip_p`/ `e_dispatch_action_p` not working in modularized shiny app, attempting to debug with local fork but `debugger` doesn't register in the `addCustomMessageHandler` about echarts4r HOT 2 OPEN

library(shiny)
devtools::load_all()

ui <- fluidPage(
  fluidRow(
    column(6, echarts4rOutput("plot")),
    column(6, echarts4rOutput("plot2"))
  )
)

server <- function(input, output, session) {
  output$plot <- renderEcharts4r({
    mtcars |>
      e_charts(mpg) |>
      e_line(disp, bind = carb, name = "displacement", emphasis = list(
        disabled = FALSE,
        lineStyle = list(opacity = 1,
                         width = 6)
      )) |>
      e_line(hp, emphasis = list(
        disabled = FALSE,
        lineStyle = list(opacity = 1,
                         width = 6)
      )) |>
      e_x_axis(min = 10) |>
      e_tooltip() |>
      e_theme("westeros") |> 
      e_group('p') |> 
      e_on(
        "series",
        event = "mouseover", 
        "
        (event) => {
          Shiny.setInputValue('plot_mouseover_seriesIndex', event.seriesIndex, {priority: 'event'})
        }
        "
      ) |> 
      e_on(
        "series",
        event = "mouseover", 
        "
        (event) => {
          Shiny.setInputValue('plot_mouseout_seriesIndex', event.seriesIndex, {priority: 'event'})
        }
        "
      )
  })
  output$plot2 <- renderEcharts4r({
    mtcars |>
      e_charts(mpg) |>
      e_line(disp, bind = carb, name = "displacement", emphasis = list(
        disabled = FALSE,
        lineStyle = list(opacity = 1,
                         width = 6)
      )) |>
      e_line(hp, emphasis = list(
        disabled = FALSE,
        lineStyle = list(opacity = 1,
                         width = 6)
      )) |>
      e_x_axis(min = 10) |>
      e_tooltip() |>
      e_theme("westeros") |> 
      e_group('p') |> 
      e_on(
        "series",
        event = "mouseover", 
        "
        (event) => {
          Shiny.setInputValue('plot2_mouseover_seriesIndex', event.seriesIndex, {priority: 'event'})
        }
        "
      ) |> 
      e_on(
        "series",
        event = "mouseout", 
        "
        (event) => {
          Shiny.setInputValue('plot2_mouseout_seriesIndex', event.seriesIndex, {priority: 'event'})
        }
        "
      )
    # |> 
    #   e_connect_group("p")
  })


  browse = FALSE
  observeEvent(input$plot_mouseover_seriesIndex, {
    cli::cli_inform("plot_mouseover")
    if (browse)
      browser()
    prox <- echarts4rProxy("plot2")
    e_dispatch_action_p(
      prox,
      "select",
      seriesIndex = input$plot_mouseover_seriesIndex
    )
    e_showtip_p(
      prox,
      seriesIndex = input$plot_mouseover_seriesIndex
    )
    e_highlight_p(
      prox,
      series_index = input$plot_mouseover_seriesIndex
    )
  })
  observeEvent(input$plot2_mouseover_seriesIndex, {
    cli::cli_inform("plot2_mouseover")
    if (browse)
      browser()
    prox <- echarts4rProxy("plot")
      e_dispatch_action_p(
        prox,
        "select",
        seriesIndex = input$plot2_mouseover_seriesIndex
      )
      e_showtip_p(
        prox,
        seriesIndex = input$plot2_mouseover_seriesIndex
      )
      e_highlight_p(
        prox,
        series_index = input$plot2_mouseover_seriesIndex
      )
  })
  observeEvent(input$plot_mouseout_seriesIndex, {
    cli::cli_inform("plot2_mouseout")
    if (browse)
      browser()
    prox <- echarts4rProxy("plot2")
    e_dispatch_action_p(
      prox,
      "select",
      seriesIndex = input$plot_mouseout_seriesIndex
    )
    e_hidetip_p(
      prox
    )
    e_downplay_p(
      prox,
      series_index = input$plot_mouseout_seriesIndex
    )
  })
  observeEvent(input$plot2_mouseout_seriesIndex, {
    cli::cli_inform("plot2_mouseout")
    if (browse)
      browser()
    prox <- echarts4rProxy("plot")
      e_dispatch_action_p(
        prox,
        "select",
        seriesIndex = input$plot2_mouseout_seriesIndex
      )
      e_hidetip_p(
        prox
      )
      e_downplay_p(
        prox,
        series_index = input$plot2_mouseout_seriesIndex
      )
  })





}

if (interactive()) {
  shinyApp(ui, server)
}