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)

Eseguire l’esempio riproducibile R/Shiny fornito con plotly, crosstalk e l’evidenziazione persistente. Tracciare il modo in cui le selezioni plotly ripetute vengono sincronizzate con SharedData$selection(), quindi verificare che tutte le selezioni persistenti rimangano disponibili nell’oggetto SharedData e che il conteggio visualizzato rimanga sincronizzato.