Sluggish performance when using add_annotations

Adding "add_annotations" to many points on any plot, cause slow performance.
Please see the below minimal example

library(shiny)
library(plotly)
library(quantmod)

ui <- fluidPage(
  plotlyOutput("plot"),
  verbatimTextOutput("event")
)

server <- function(input, output) {

  output$plot <- renderPlotly({
    getSymbols("AAPL",src='yahoo')

    # basic example of ohlc charts
    df <- data.frame(Date=index(AAPL),coredata(AAPL))
    df <- tail(df, 500)
    p <- df %>%
      plot_ly(x = ~Date, type="candlestick",
              open = ~AAPL.Open, close = ~AAPL.Close,
              high = ~AAPL.High, low = ~AAPL.Low) %>%
      add_annotations(x = ~Date , y = ~AAPL.Open, text = "Tslow",xref = "x", yref = "y", yref = "y",ax = -30, ay = 40,
                      arrowcolor = 'rgb(0, 153, 51)', arrowsize = 2, arrowwidth = 1, arrowhead = 4)  %>%
      layout(title = "Basic Candlestick Chart",xaxis = list(rangeslider = list(visible = F)))
    p
  })

  output$event <- renderPrint({
    d <- event_data("plotly_hover")
    if (is.null(d)) "Hover on a point!" else d
  })
}

shinyApp(ui, server)

Start by running the provided R Shiny example with plotly, quantmod, and 500 candlestick points, then profile the add_annotations call. The issue names no source files or tests; done means identifying and addressing the cause of the sluggish annotation performance without breaking the example.