```r library(shiny) library(plotly) ui <- fluidPage( plotlyOutput("plot"), verbatimTextOutput("event") ) server <- function(input, output) { output$plot <- renderPlotly({ p <- toWebGL(plot_ly(mtcars, x = ~mpg, y = ~wt)) print(plotly_json(p)) p }) output$event <- renderPrint({ d <- event_data("plotly_hover") if (is.null(d)) "Hover on a point!" else d }) } shinyApp(ui, server) ``` ```r Warning in verify_webgl(p) : The following traces don't have a WebGL equivalent: 1 ```