Consistent deselection/selection while using sliders

Hi all

For some reason, deselection is not consistent while using animation slider from R api of plotly. Every time I change the vlaue of the slider deselected traces reappear.

Here is some reprex:


library(plotly)
set.seed(123)

data.frame(
  type = rep(c("a", "b", "c"), 3),
  time = rep(1:3, each = 3),
  x = rnorm(9),
  y = rnorm(9)
) |> 
  plot_ly() |> 
  add_markers(
    color =~ type,
    frame =~ time,
    x =~ x,
    y =~ y
  )