我有一个shinyapp和使用plotly-Plots.我必须使用webGL，否则我不会得到一个可接受的性能.然而，似乎，在这里删除悬停Remove hover info text from a plotly object的方法不工作.我的最小的例子：

library(shiny)
library(ggplot2)
library(plotly)

ui <- fluidPage(
  plotlyOutput("po")
)

server <- function(input, output, session) {
  output$po <- renderPlotly({
    p <- ggplot(iris)+geom_point(aes(x=Sepal.Width,y=Sepal.Length,color=Species))
    p <- toWebGL(p)
    #p <- ggplotly(p) # This also does not work, so the problem seems to be somewhere else
    p$x$data[[1]]$hoverinfo <- "none"
    p
  })
}

shinyApp(ui, server)

字符串
悬浮器还在那里。我怎么才能移除它？