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)

Chạy ví dụ R/Shiny có thể tái lập được cung cấp với plotly, crosstalk và tính năng đánh dấu liên tục. Theo dõi cách các lựa chọn plotly lặp lại được đồng bộ hóa với SharedData$selection(), sau đó xác minh rằng tất cả các lựa chọn liên tục vẫn còn khả dụng trong đối tượng SharedData và số lượng được hiển thị vẫn đồng bộ.