Trace is lost with animation, not all ids exist in the legend

I couldn't find this issue here - copying it accordingly:

This issue arises when I have animated frames and the ids do not exist for all frames (particularly the first one). Here is a reproducible example:

dat = data.frame(f = rep(1:4, each = 10), 
             x = rep(1:5, 2*4), 
             y = rep(c(rep(1, 5), rep(2, 5)), 4), 
             id = rep(rep(LETTERS[1:2], each = 5), 4))
dat = dat[dat$id == "B" | dat$id == "A" & dat$f == 3,]
plot_ly(x = ~ x, 
    y = ~ y,colors = c("#FF0000","#0000FF")) %>%
  add_lines(
    data = group_by(dat, id, f),
    frame = ~ f,
    key = ~ id,
    ids = ~ id,
    color = ~ id)

Notice in frame 3 that the line at y = 2 disappears. I also get a warning:

Warning message:
In p$x$data[firstFrame] <- p$x$frames[[1]]$data :
number of items to replace is not a multiple of replacement length

Comienza ejecutando el ejemplo reproducible de R del issue e inspecciona cómo se ensamblan los frames animados, los ids y el primer frame. Se considera terminado cuando la línea en y = 2 permanece visible en el frame 3 y la advertencia sobre la longitud del reemplazo ya no aparece.