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)

Exécutez l’exemple reproductible R/Shiny fourni avec plotly, crosstalk et une mise en évidence persistante. Suivez la manière dont les sélections plotly répétées sont synchronisées avec SharedData$selection(), puis vérifiez que toutes les sélections persistantes restent disponibles dans l’objet SharedData et que le nombre affiché reste synchronisé.