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
  )

Empieza ejecutando el R reprex del issue y cambiando el control deslizante de animación después de deseleccionar los traces. Sigue el comportamiento del control deslizante en la R API y el manejo relacionado de la animación; se considerará terminado cuando los traces deseleccionados sigan ocultos al cambiar el valor del control deslizante.