persistent highlights do not persist in crosstalk SharedData$selection()

When using plotly with crosstalk, and highlight(..., persistent = TRUE), the selections do not synchronize as expected with SharedData$selection(). Only the last selection is selected in the SharedData object. previous ones are "forgotten". The plot highlights will be out of sync with the SharedData object.

library(tidyverse)
library(plotly)
library(crosstalk)
library(shiny)

ui <- bootstrapPage(
  wellPanel(
    plotlyOutput(outputId = "plot"),
    verbatimTextOutput(outputId = "selection")
  )
)
server <- function(input, output, session) {
  data <- mtcars %>%
    rownames_to_column("name") %>%
    SharedData$new()
  
  output$plot <- renderPlotly({
    plot_ly(data = data, x = ~disp, y = ~mpg, mode = "marker", type = "scatter") %>%
      highlight(on = "plotly_selected", off = "plotly_deselect", persistent = TRUE)
  })
  
  output$selection <- renderPrint({
    s <- data$selection()
    print(paste(sum(s), "points selected"))
  })
  
}

shinyApp(ui = ui, server = server)

Führen Sie das bereitgestellte reproduzierbare R/Shiny-Beispiel mit plotly, crosstalk und dauerhafter Hervorhebung aus. Verfolgen Sie, wie wiederholte plotly-Auswahlen mit SharedData$selection() synchronisiert werden, und überprüfen Sie anschließend, dass alle dauerhaften Auswahlen im SharedData-Objekt verfügbar bleiben und die angezeigte Anzahl synchron bleibt.