library(shiny)
library(plotly)
ui <- fluidPage(
 plotlyOutput("plot"),
 verbatimTextOutput("click"),
 verbatimTextOutput("shift_click"),
 verbatimTextOutput("hover"),
 verbatimTextOutput("shift_hover")
)
server <- function(input, output, session) {
 output$plot <- renderPlotly({
 plot_ly(x = 1:10, y = 1:10, key = LETTERS[1:10])
 })
 
 output$click <- renderPrint({
 d <- event_data("plotly_click")
 if (is.null(d)) "Transient click data" else d
 })
 output$shift_click <- renderPrint({
 d <- event_data("plotly_click_persist_on_shift")
 if (is.null(d)) "Persistent click data" else d
 })
 output$hover <- renderPrint({
 d <- event_data("plotly_hover")
 if (is.null(d)) "Transient hover data" else d
 })
 output$shift_hover <- renderPrint({
 d <- event_data("plotly_hover_persist_on_shift")
 if (is.null(d)) "Persistent hover data" else d
 })
}
shinyApp(ui, server)