Cfrgtkky

I want to use a contextmenu (jQuery contextMenu) on top of a Plotly object.
The problem is that, when I select multiple elements with the Box- or Lasso-select tool and then right-click on a bar, it triggers a click event on that one bar and the previous selection is lost.

How can I prevent right-clicks from happening on the Plotly-object, so just left-clicks trigger a click/select event and the right-click is reserved only for opening the contextmenu?

Shiny-App:

library(shiny)

library(ggplot2)

library(plotly)



dfN <- data.frame(

  time_stamp = seq.Date(as.Date("2018-04-01"), as.Date("2018-07-30"), 1),

  val = runif(121, 100,1000),

  col = "green", stringsAsFactors = F

)



jsCode = HTML('

$(document).on("shiny:connected", function() {

    $(function() {

        $.contextMenu({

            selector: "#plot",

            callback: function(key, options) {

              switch(key){

                 case "copy":

                    console.log("Contextmenu: Copy was clicked");

                    break;

                case "paste":

                    console.log("Contextmenu: Paste was clicked");

                    break;

              }

            },

            items: {

              copy: {name: "copy", icon: "copy"},

              "paste": {name: "paste", icon: "paste"}

            }

          });

      });

});')





ui <- fluidPage(

  tags$head(tags$script(src="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.7.1/jquery.contextMenu.min.js")),

  tags$head(tags$script(src="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.7.1/jquery.ui.position.js")),

  tags$head(tags$link(rel="stylesheet", href="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.7.1/jquery.contextMenu.min.css")),

  tags$head(tags$script(jsCode)),

  plotlyOutput("plot")

)



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

  output$plot <- renderPlotly({

    key <- highlight_key(dfN)

    p <- ggplot() +

      geom_col(data = key, aes(x = plotly:::to_milliseconds(time_stamp), y = val, fill=I(col)))



    ggplotly(p, source = "Src") %>% 

      layout(xaxis = list(type = "date")) %>% 

      highlight(off = "plotly_doubleclick", on = "plotly_click", color = "blue",

                opacityDim = 0.5, selected = attrs_selected(opacity = 1))

  })

}



shinyApp(ui, server)