Demo of event from right click in shiny

shiny-right-click.R

library(shiny)
ui <- function(request){
  tagList(
    tags$script(
      "$(function(){
        $(this).bind('contextmenu', function (e) {
          e.preventDefault()
          Shiny.setInputValue('plop', Math.random());
        });
      });"
    )
  )
}

server <- function(input, output, session){
  observeEvent( input$plop , {
    print(input$plop)
  })
  
}

shinyApp(ui, server)