toWebGL() throws false positive warning in shiny

[cpsievert]

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)

Warning in verify_webgl(p) :
  The following traces don't have a WebGL equivalent: 1

[cpsievert]

Bisected to f62c50e